7 lines
229 B
Scheme
7 lines
229 B
Scheme
(require (lib "mzlib/process.ss"))
|
|
|
|
(define name (vector-ref (current-command-line-arguments) 0))
|
|
|
|
(system (format "csc -no-warnings -no-trace -no-lambda-info -optimize-level 3 -block -lambda-lift ~a.sch"
|
|
name))
|