Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm @@ -54,11 +54,10 @@ Usage: dashboard [options] -h : this help -test run-id,test-id : control test identified by testid -skip-version-check : skip the version check - -use-db-cache : access database via cache Misc -rows R : set number of rows -cols C : set number of columns ")) @@ -83,11 +82,11 @@ "-use-server" "-guimonitor" "-main" "-v" "-q" - "-use-db-cache" + ;; "-use-db-cache" "-skip-version-check" "-repl" "-rh5.11" ;; fix to allow running on rh5.11 ) args:arg-hash Index: utils/plot-code.scm ================================================================== --- utils/plot-code.scm +++ utils/plot-code.scm @@ -13,10 +13,15 @@ ;; plot-code file1.scm,file2.scm... fn-regex file1.scm file2.scm ... (define targs #f) (define args (argv)) +(if (< (length args) 2) ;; no args provided + (begin + (print "Usage: plot-code file1.scm,file2.scm... 'your.*regex' file3.scm file4.scm file5.scm ...") + (exit))) + (define files (cdddr args)) (let ((targdat (cadr args))) (if (equal? targdat "-") (set! targs files)