spell util correctly

svn: r4060
This commit is contained in:
Matthew Flatt 2006-08-13 13:49:55 +00:00
parent b69603ce03
commit 22e4122a81

View File

@ -7,7 +7,7 @@
name)) name))
(when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc -lm -ldl~a" (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc -lm -ldl~a"
name name name name name name
(if (file-exists? "/usr/lib/libtuil.a") (if (file-exists? "/usr/lib/libutil.a")
" -lutil" " -lutil"
""))) "")))
(delete-file (format "~a.c" name)) (delete-file (format "~a.c" name))