646
647
648
649
650
651
652
653
|
;; (megatest-gui)
(set! *didsomething* #t)))
(if (not *didsomething*)
(print help))
(if (not (eq? *globalexitstatus* 0))
(exit *globalexitstatus*))
|
>
>
>
>
|
>
>
>
>
|
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
|
;; (megatest-gui)
(set! *didsomething* #t)))
(if (not *didsomething*)
(print help))
(if (not (eq? *globalexitstatus* 0))
(if (or (args:get-arg "-runtests")(args:get-arg "-runall"))
(begin
(print "NOTE: Subprocesses with non-zero exit code detected: " *globalexitstatus*)
(exit 0))
(case *globalexitstatus*
((0)(exit 0))
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
|