Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-06 12:46: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

5
cyclone.scm
View file

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

6
scheme/cyclone/util.sld
View file

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