706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
|
(delete-file fname))
#f))
#f))))
(common:faux-unlock fname)
res)
(begin
(debug:print 0 *default-log-port* "WARNING: could not get faux-lock on " fname)
#f)))
;; convert hierarchial list to ini format
;;
(define (configf:config->ini data)
(map
(lambda (section)
|
|
|
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
|
(delete-file fname))
#f))
#f))))
(common:faux-unlock fname)
res)
(begin
(debug:print 0 *default-log-port* "WARNING: could not get lock on " fname)
#f)))
;; convert hierarchial list to ini format
;;
(define (configf:config->ini data)
(map
(lambda (section)
|