suzanne.soy/scheme-to-c
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed two bugs reported by Chas Emerick (Thanks Chas!):

Browse Source 
1. The call to process-body for (begin ...) expressions at line 1594 was
     missing its who argument ('begin).
  2. Calling the result of the C compiler on the output was failing for people
     who don't have '.' in their path (yes, I have '.' in my path), because the
     system call on line 3535 was missing './' in front of 't'.

  c.ss
This commit is contained in:
Andy Keep 2015-01-21 23:58:28 -05:00
parent 1ca475132f
commit 610fed52bd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c.ss
View File

@ -1591,7 +1591,7 @@
(cons 'and (lambda (env . e*) `(and ,(Expr* e* env) ...))) (cons 'and (lambda (env . e*) `(and ,(Expr* e* env) ...)))
(cons 'not (lambda (env e) `(not ,(Expr e env)))) (cons 'not (lambda (env e) `(not ,(Expr e env))))
(cons 'begin (lambda (env . e*) (cons 'begin (lambda (env . e*)
(process-body env e* (process-body 'begin env e*
(lambda (e* e) (lambda (e* e)
`(begin ,e* ... ,e))))) `(begin ,e* ... ,e)))))
(cons 'lambda (lambda (env fmls . body*) (cons 'lambda (lambda (env fmls . body*)
@ -3532,7 +3532,7 @@
(if (use-boehm?) "-lgc" ""))) (if (use-boehm?) "-lgc" "")))
(when (file-exists? "t.out") (when (file-exists? "t.out")
(delete-file "t.out")) (delete-file "t.out"))
(system "t > t.out") (system "./t > t.out")
(call-with-input-file "t.out" read)) (call-with-input-file "t.out" read))
(with-syntax ([pass (car pass*)] (with-syntax ([pass (car pass*)]
[unparser (car unparser*)]) [unparser (car unparser*)])