Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-05 20:26:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Replacing begin

Browse source
This commit is contained in:
Justin Ethier 2016-01-30 22:35:50 -05:00
parent 8b2e340564
commit d93d89a922
2 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
cyclone.scm
View file

@ -233,10 +233,9 @@
(trace:info "---------------- after closure-convert:")
(trace:info input-program) ;pretty-print
(if (not *do-code-gen*)
(begin
(trace:error "DEBUG, existing program")
(exit 0)))
(when (not *do-code-gen*)
(trace:error "DEBUG, existing program")
(exit 0))
(trace:info "---------------- C code:")
(mta:code-gen input-program

6
scheme/cyclone/util.sld
View file

@ -117,13 +117,13 @@
; gensym : symbol -> symbol
(define gensym (lambda params
(if (null? params)
(begin
(cond
((null? params)
(set! gensym-count (+ gensym-count 1))
(string->symbol (string-append
"$"
(number->string gensym-count))))
(begin
(else
(set! gensym-count (+ gensym-count 1))
(string->symbol (string-append
(if (symbol? (car params))