(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")