@@ -25,13 +25,15 @@ (use regex regex-case matchable) ;; directory-utils) (declare (unit configf)) (declare (uses process)) (declare (uses env)) (declare (uses keys)) +(declare (uses mtargs)) (declare (uses commonmod)) (declare (uses commonmod.import)) -(import commonmod) +(import commonmod + (prefix mtargs args:)) (include "common_records.scm") ;; return list (path fullpath configname) (define (find-config configname #!key (toppath #f)) @@ -101,11 +103,11 @@ (define (configf:system ht cmd) (system cmd) ) -(define configf:imports "(import commonmod)") +(define configf:imports "(import commonmod (prefix mtargs args:))") (define (configf:process-line l ht allow-system #!key (linenum #f)) (let loop ((res l)) (if (string? res) (let ((matchdat (string-search configf:var-expand-regex res)))