Add dodgy uname based host OS detection

[scheme.git] / codegen.scm

diff --git a/codegen.scm b/codegen.scm
index 2d60c0aed64c22d3f1933544bf1a5df7101ce62c..7c1c3a150727c969a991021fd2c3470e221f573e 100644 (file)
--- a/codegen.scm
+++ b/codegen.scm
@@ -1,7 +1,8 @@
 (load "typecheck.scm")
 (load "ast.scm")
+(load "platform.scm")
 
-(define target 'darwin)
+(define target host-os)
 
 (define (emit . s)
   (begin