11 lines
291 B
Scheme
11 lines
291 B
Scheme
|
|
(require (lib "process.ss"))
|
|
|
|
(define name (vector-ref (current-command-line-arguments) 0))
|
|
|
|
(when (file-exists? (format "~a.o1" name))
|
|
(delete-file (format "~a.o1" name)))
|
|
|
|
(system (format "gsc -:m10000 -dynamic -prelude '(include \"gambit-prelude.sch\")' ~a.sch"
|
|
name))
|