359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
|
(runs:get-mt-env-alist run-id run-name target test-name item-path)
(lambda ()
(if scheme-match
(begin
(handle-exceptions
exn
(print "error with custom menu scheme, exn=" exn)
(begin
;;(BB> "gonna eval it!")
(eval (with-input-from-string (cadr scheme-match) read)))))
(common:run-a-command command-line with-vars: #t))))))))
#f)))
vars)))
|
|
|
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
|
(runs:get-mt-env-alist run-id run-name target test-name item-path)
(lambda ()
(if scheme-match
(begin
(handle-exceptions
exn
(debug:print 0 *default-log-port* "error with custom menu scheme, exn=" exn)
(begin
;;(BB> "gonna eval it!")
(eval (with-input-from-string (cadr scheme-match) read)))))
(common:run-a-command command-line with-vars: #t))))))))
#f)))
vars)))
|