suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

repairs

Browse Source 
svn: r4058
This commit is contained in:
Matthew Flatt 2006-08-13 13:47:30 +00:00
parent 736a384305
commit 329800478e
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/mzscheme/benchmarks/common/mk-gambit.ss
View File

@ -5,7 +5,7 @@
(when (system (format "gsc -prelude '(include \"gambit-prelude.sch\")' ~a.sch" (when (system (format "gsc -prelude '(include \"gambit-prelude.sch\")' ~a.sch"
name)) name))
(when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc" (when (system (format "gcc -o ~a -O2 -D___SINGLE_HOST ~a.c ~a_.c -lgambc -lm -ldl -lutil"
name name name)) name name name))
(delete-file (format "~a.c" name)) (delete-file (format "~a.c" name))
(delete-file (format "~a_.c" name)))) (delete-file (format "~a_.c" name))))

2
collects/tests/mzscheme/benchmarks/common/triangle.sch
View File

@ -76,7 +76,7 @@
;;; call: (gogogo 22)) ;;; call: (gogogo 22))
(time (let loop ([n 10000]) (time (let loop ((n 10000))
(if (zero? n) (if (zero? n)
'done 'done
(begin (begin