X-Git-Url: http://git.lukelau.me/?p=scheme.git;a=blobdiff_plain;f=tests.scm;h=531efe23223d79a1242e50aae316cae953686d89;hp=65b99d9c5a3574e331228c21933528d1a3490e76;hb=8519507b78d723100bca15fe0332ff99890e77fa;hpb=b35e568b559038a7b848f81c70ec50753dc3f736

diff --git a/tests.scm b/tests.scm
index 65b99d9..531efe2 100644
--- a/tests.scm
+++ b/tests.scm
@@ -22,13 +22,13 @@
 (define (test-prog prog exit-code)
   (display prog)
   (newline)
-  (compile-to-binary prog "/tmp/test-prog" 'darwin)
+  (compile-to-binary prog "/tmp/test-prog" host-os)
   (test (system "/tmp/test-prog") exit-code))
 
 (define (test-prog-stdout prog output)
   (display prog)
   (newline)
-  (compile-to-binary prog "/tmp/test-prog" 'darwin)
+  (compile-to-binary prog "/tmp/test-prog" host-os)
   (system "/tmp/test-prog > /tmp/test-output.txt")
   (let ((str (read-file "/tmp/test-output.txt")))
     (test str output)))