Overview
| Comment: | Changed warning to INFO |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
179809b8552941d563a35f380bec8c71 |
| User & Date: | mrwellan on 2017-06-07 13:46:28 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-07
| ||
| 14:53 | Fixed duration issue for tcmt check-in: 6d5aca6013 user: mrwellan tags: v1.64 | |
| 13:46 | Changed warning to INFO check-in: 179809b855 user: mrwellan tags: v1.64 | |
| 12:22 | Fix for version-as-string issue check-in: e3ac63c415 user: mrwellan tags: v1.64 | |
Changes
Modified configf.scm from [a5fb5e6f08] to [29a99efb5b].
| ︙ | ︙ | |||
684 685 686 687 688 689 690 |
exn
#f
(configf:alist->config
(with-input-from-file fname read))))
(define (configf:write-alist cdat fname)
(if (not (common:faux-lock fname))
| | | 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 |
exn
#f
(configf:alist->config
(with-input-from-file fname read))))
(define (configf:write-alist cdat fname)
(if (not (common:faux-lock fname))
(debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
(let* ((dat (configf:config->alist cdat))
(res
(begin
(with-output-to-file fname ;; first write out the file
(lambda ()
(pp dat)))
|
| ︙ | ︙ |
Modified launch.scm from [98f81b97d0] to [3b1eca98b3].
| ︙ | ︙ | |||
1002 1003 1004 1005 1006 1007 1008 |
(set! *toppath* #f) ;; force it to be false so we return #f
#f
))
;; one more attempt to cache the configs for future reading
(let* ((cachefiles (launch:get-cache-file-paths areapath toppath target mtconfig))
(mtcachef (car cachefiles))
(rccachef (cdr cachefiles)))
| | | | 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 |
(set! *toppath* #f) ;; force it to be false so we return #f
#f
))
;; one more attempt to cache the configs for future reading
(let* ((cachefiles (launch:get-cache-file-paths areapath toppath target mtconfig))
(mtcachef (car cachefiles))
(rccachef (cdr cachefiles)))
(if (and rccachef *runconfigdat* (not (file-exists? rccachef))) (configf:write-alist *runconfigdat* rccachef))
(if (and mtcachef *configdat* (not (file-exists? mtcachef))) (configf:write-alist *configdat* mtcachef))
(if (and rccachef mtcachef *runconfigdat* *configdat*)
(set! *configstatus* 'fulldata)))
;; if have -append-config then read and append here
(let ((cfname (args:get-arg "-append-config")))
(if (and cfname
(file-read-access? cfname))
|
| ︙ | ︙ |