Index: configf-testing/c.scm ================================================================== --- configf-testing/c.scm +++ configf-testing/c.scm @@ -1,13 +1,14 @@ ;; pretend to be a config file processor (use posix srfi-69) -(define getenv get-environment-variable) +;; (define getenv get-environment-variable) (define (print-hash-table ht) (print "ht=" (hash-table->alist ht))) (define cfgdata (conc "(use simple-md5)" + "(set! getenv get-environment-variable)" "(hash-table-set! ht \"PATH\" (getenv \"PATH\"))" "(hash-table-set! ht \"currdir\" (current-directory))" "(hash-table-set! ht \"md5sum\" (string->md5sum \"Hello\"))")) (define (faux-cfg-processor ht cfgdata) Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -73,10 +73,12 @@ (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") (include "megatest-fossil-hash.scm") + +(define getenv get-environment-variable) (define *usage-log-file* #f) ;; put path to file for logging usage in this var in the ~/.megatestrc file (define *usage-use-seconds* #t) ;; for Epoc seconds in usage logging change this to #t in ~/.megatestrc file ;; load the ~/.megatestrc file, put (use trace)(trace-call-sites #t)(trace function-you-want-to-trace) in this file