684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
|
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* "WARNING: could not get lock on " 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)))
|