Overview
| Comment: | fixed let in common:force-server? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | runaway-servers-fix |
| Files: | files | file ages | folders |
| SHA1: |
4df9fd5d18da0524cdc1a456bd1f56ee |
| User & Date: | bjbarcla on 2017-03-23 12:12:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-23
| ||
| 12:49 | adding some file-exists? protections and a fix to force-server? from 1.63 check-in: 211ecbabeb user: bjbarcla tags: runaway-servers-fix | |
| 12:23 | merged in matts fix for testsuite; resolved conflicts with common:file-exists? additions check-in: 474e1543fa user: bjbarcla tags: v1.63 | |
| 12:12 | fixed let in common:force-server? check-in: 4df9fd5d18 user: bjbarcla tags: runaway-servers-fix | |
| 11:34 | Fixed wrong testsuite name calculation problem. check-in: 8c653071c7 user: matt tags: runaway-servers-fix | |
Changes
Modified common.scm from [51c4b93945] to [fcf4113792].
| ︙ | ︙ | |||
1018 1019 1020 1021 1022 1023 1024 | (not (or (args:get-arg "-no-cache") (and *configdat* (equal? (configf:lookup *configdat* "setup" "use-cache") "no"))))) ;; force use of server? ;; (define (common:force-server?) | | | 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 |
(not (or (args:get-arg "-no-cache")
(and *configdat*
(equal? (configf:lookup *configdat* "setup" "use-cache") "no")))))
;; force use of server?
;;
(define (common:force-server?)
(let* ((force-setting (configf:lookup "server" "force"))
(force-type (if force-setting (string->symbol force-setting) #f)))
(case force-type
((#f) #f)
((always) #t)
((test) (if (args:get-arg "-execute") ;; we are in a test
#t
#f)))))
|
| ︙ | ︙ |