X-Git-Url: https://git.lukelau.me/?a=blobdiff_plain;f=main.scm;h=e2e96b8355b68cd43967977259c67ab91f7a5e1e;hb=6b60f721c4be97e0a79e1b16028a5d180eb0ba1e;hp=ce9241ac11537abaf0766e6876e138b24645efd3;hpb=5d4aafc1235538212989893f15006acc5d7d8f03;p=scheme.git

diff --git a/main.scm b/main.scm
index ce9241a..e2e96b8 100644
--- a/main.scm
+++ b/main.scm
@@ -1,9 +1,10 @@
 (load "codegen.scm")
+(load "platform.scm")
 
 ; returns (os filename)
 (define (parse-args)
   (define (parse-os x)
-    (if (null? x) 'darwin ; todo: replace this with the os
+    (if (null? x) host-os ; todo: replace this with the os
 					; it was compiled with
 	(if
 	 (or (equal? (car x) "-t")