633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
|
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
|
-
+
|
(cond
((args:get-arg "-run")
(let ((runid (string->number (args:get-arg "-run"))))
(if runid
(begin
(lambda (x)
(on-exit (lambda ()
(sqlite3:finalize! *db*)))
(if *db* (sqlite3:finalize! *db*))))
(open-run-close examine-run *db* runid)))
(begin
(print "ERROR: runid is not a number " (args:get-arg "-run"))
(exit 1)))))
((args:get-arg "-test")
(let ((testid (string->number (args:get-arg "-test"))))
(if testid
|