@@ -11,10 +11,17 @@
 
 ;;======================================================================
 ;; Config file handling
 ;;======================================================================
 
+(use regex regex-case)
+(declare (unit configf))
+(declare (uses common))
+(declare (uses process))
+
+(include "common_records.scm")
+
 ;; return list (path fullpath configname)
 (define (find-config configname)
   (let* ((cwd (string-split (current-directory) "/")))
     (let loop ((dir cwd))
       (let* ((path     (conc "/" (string-intersperse dir "/")))