Overview
| Comment: | fixed bug in common:force-server? |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 |
| Files: | files | file ages | folders |
| SHA1: |
7a06fb3f6524259179432ecc074068b8 |
| User & Date: | bjbarcla on 2017-03-23 01:25:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-03-23
| ||
| 12:23 | merged in matts fix for testsuite; resolved conflicts with common:file-exists? additions check-in: 474e1543fa user: bjbarcla tags: v1.63 | |
| 01:25 | fixed bug in common:force-server? check-in: 7a06fb3f65 user: bjbarcla tags: v1.63 | |
| 01:18 | merged runaway servers fix check-in: c80ac44cb9 user: bjbarcla tags: v1.63 | |
Changes
Modified common.scm from [b2563faa27] to [2146ce57ec].
| ︙ | ︙ | |||
1040 1041 1042 1043 1044 1045 1046 | (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?) | | | | 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 |
(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)))))
|
| ︙ | ︙ |