@@ -26,51 +26,17 @@
 (declare (unit configf))
 (declare (uses process))
 (declare (uses env))
 
 (declare (uses commonmod))
+(declare (uses debugprint))
 (import commonmod)
+(import debugprint)
 
 (declare (uses configfmod))
 (import configfmod)
 
 (declare (uses margsmod))
 (import margsmod)
 
 (include "common_records.scm")
 
-;; if 
-(define (configf:read-alist fname)
-  (handle-exceptions
-      exn
-    (begin
-      (debug:print 0 *default-log-port* "read of alist " fname " failed. exn=" 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)))
-            
-            (if (common:file-exists? fname)   ;; now verify it is readable
-                (if (configf:read-alist fname)
-                    #t ;; data is good.
-                    (begin
-                      (handle-exceptions
-			  exn
-			(begin
-			  (debug:print 0 *default-log-port* "deleting " fname " failed, exn=" exn)
-			  #f)
-			(debug:print 0 *default-log-port* "WARNING: content " dat " for cache " fname " is not readable. Deleting generated file.")
-			(delete-file fname))
-                      #f))
-                #f))))
-    (common:faux-unlock fname)
-    res))
-