7 lines
197 B
Scheme
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)))
|