projects
/
scheme.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix graph not considering original binds when recursing
[scheme.git]
/
main.scm
diff --git
a/main.scm
b/main.scm
index ce9241ac11537abaf0766e6876e138b24645efd3..e2e96b8355b68cd43967977259c67ab91f7a5e1e 100644
(file)
--- a/
main.scm
+++ b/
main.scm
@@
-1,9
+1,10
@@
(load "codegen.scm")
(load "codegen.scm")
+(load "platform.scm")
; returns (os filename)
(define (parse-args)
(define (parse-os x)
; 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")
; it was compiled with
(if
(or (equal? (car x) "-t")