racket/collects/lang/plt-mzscheme.ss
2005-12-07 14:27:12 +00:00

7 lines
197 B
Scheme

(module plt-mzscheme mzscheme
(define argv (current-command-line-arguments))
(define program (find-system-path 'exec-file))
(provide argv
program
(all-from mzscheme)))