Index: launch.scm ================================================================== --- launch.scm +++ launch.scm @@ -658,11 +658,11 @@ (lambda (varval) (let ((var (car varval)) (val (cadr varval))) (if (and (string? var)(string? val)) (begin - (safe-setenv var (config:eval-string-in-environment val))) ;; val) + (safe-setenv var (configf:eval-string-in-environment val))) ;; val) (debug:print-error 0 *default-log-port* "bad variable spec, " var "=" val)))) (configf:get-section rconfig section))) (list "default" target))) ;;(bb-check-path msg: "launch:execute post block 1") Index: portlogger.scm ================================================================== --- portlogger.scm +++ portlogger.scm @@ -24,11 +24,11 @@ (declare (unit portlogger)) (declare (uses db)) ;; (use (prefix mtconfigf configf:)) ;; lsof -i - +(include "modules.scm") (define (portlogger:open-db fname) (let* ((avail (tasks:wait-on-journal fname 5 remove: #t)) ;; wait up to about 10 seconds for the journal to go away (exists (common:file-exists? fname)) (db (if avail Index: tasks.scm ================================================================== --- tasks.scm +++ tasks.scm @@ -29,11 +29,11 @@ ;; (import pgdb) ;; pgdb is a module (include "task_records.scm") (include "db_records.scm") - +(include "modules.scm") ;;====================================================================== ;; Tasks db ;;====================================================================== ;; wait up to aprox n seconds for a journal to go away