set property

svn: r4162
This commit is contained in:
Matthew Flatt 2006-08-28 00:05:22 +00:00
parent e694c53738
commit b75b99fe76

View File

@ -11,7 +11,7 @@
(newline)) (newline))
'truncate/replace) 'truncate/replace)
(when (system (format "bigloo -w -o ~a -O6 ~a.scm" (when (system (format "bigloo -w -o ~a -copt -O3 -copt -fomit-frame-pointer -O6 ~a.scm"
name name)) name name))
(delete-file (format "~a.scm" name)) (delete-file (format "~a.scm" name))
(delete-file (format "~a.o" name))) (delete-file (format "~a.o" name)))