Index: configf.scm ================================================================== --- configf.scm +++ configf.scm @@ -130,10 +130,11 @@ (res (if (not ht)(make-hash-table) ht))) (let loop ((inl (configf:read-line inp res)) ;; (read-line inp)) (curr-section-name (if curr-section curr-section "default")) (var-flag #f);; turn on for key-var-pr and cont-ln-rx, turn off elsewhere (lead #f)) + (debug:print 8 "INFO: curr-section-name: " curr-section-name " var-flag: " var-flag "\n inl: \"" inl "\"") (if (eof-object? inl) (begin (close-input-port inp) (hash-table-delete! res "") ;; we are using "" as a dumping ground and must remove it before returning the ht res) DELETED tests/fullrun/config/mt_include_1.config_2.config Index: tests/fullrun/config/mt_include_1.config_2.config ================================================================== --- tests/fullrun/config/mt_include_1.config_2.config +++ /dev/null @@ -1,2 +0,0 @@ -[disks] -disk0 /tmp/mt_runs ADDED tests/fullrun/config/mt_include_2.config Index: tests/fullrun/config/mt_include_2.config ================================================================== --- /dev/null +++ tests/fullrun/config/mt_include_2.config @@ -0,0 +1,2 @@ +[disks] +disk0 /tmp/mt_runs Index: tests/fullrun/megatest.config ================================================================== --- tests/fullrun/megatest.config +++ tests/fullrun/megatest.config @@ -37,8 +37,8 @@ ## name host:/path/to/area ## -or- ## name /path/to/area [disks] disk0 /foobarbazz -[include config/mt_include_1.config] +[include config/mt_include_2.config] [include #{getenv USER}_testing.config]