Differences From Artifact [9278a87851]:
- File common.scm — part of check-in [ae6dbecf17] at 2011-05-01 23:05:22 on branch trunk — Importing 1.0.1 version of megatest, (nb// work in progress, please wait for next release) (user: matt, size: 3589) [annotate] [blame] [check-ins using]
To Artifact [64281b3aad]:
- File common.scm — part of check-in [290c7d7cc8] at 2011-05-09 18:06:25 on branch trunk — Exit status handling has to be hard coded to a number, can't seem to get a variable to work (user: mrwellan, size: 3668) [annotate] [blame] [check-ins using]
| ︙ | |||
24 25 26 27 28 29 30 31 32 33 34 35 36 37 | 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | + |
(define user (getenv "USER"))
(define *configinfo* #f)
(define *configdat* #f)
(define *toppath* #f)
(define *already-seen-runconfig-info* #f)
(define *waiting-queue* (make-hash-table))
(define *globalexitstatus* 0) ;; attempt to work around possible thread issues
(define-inline (get-with-default val default)
(let ((val (args:get-arg val)))
(if val val default)))
(define-inline (assoc/default key lst . default)
(let ((res (assoc key lst)))
|
| ︙ |