From 329800478edb3897af543b9c1e84a37291a905fe Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 13 Aug 2006 13:47:30 +0000 Subject: [PATCH] repairs svn: r4058 --- collects/tests/mzscheme/benchmarks/common/mk-gambit.ss | 2 +- collects/tests/mzscheme/benchmarks/common/triangle.sch | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss index 24dc158fe8..6a99079cbb 100644 --- a/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss +++ b/collects/tests/mzscheme/benchmarks/common/mk-gambit.ss @@ -5,7 +5,7 @@ (when (system (format "gsc -prelude '(include \"gambit-prelude.sch\")' ~a.sch" 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)) (delete-file (format "~a.c" name)) (delete-file (format "~a_.c" name)))) diff --git a/collects/tests/mzscheme/benchmarks/common/triangle.sch b/collects/tests/mzscheme/benchmarks/common/triangle.sch index 2523fda56b..cceb17ed77 100644 --- a/collects/tests/mzscheme/benchmarks/common/triangle.sch +++ b/collects/tests/mzscheme/benchmarks/common/triangle.sch @@ -76,7 +76,7 @@ ;;; call: (gogogo 22)) -(time (let loop ([n 10000]) +(time (let loop ((n 10000)) (if (zero? n) 'done (begin