@@ -30,11 +30,11 @@ (declare (unit launch)) (declare (uses subrun)) (declare (uses common)) (declare (uses configf)) (declare (uses db)) -;;(declare (uses ezsteps)) why does this break things? +(declare (uses ezsteps)) ;; why does this break things? (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") ;;====================================================================== @@ -60,11 +60,11 @@ (if enccmd (common:read-encoded-string enccmd) '()))) ;; 0 1 2 3 -(defstruct launch:einf (pid #t)(exit-status #t)(exit-code #t)(rollup-status 0)) + ;; return (conc status ": " comment) from the final section so that ;; the comment can be set in the step record in launch.scm ;; (define (launch:load-logpro-dat run-id test-id stepname)