Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix parens

Browse source
This commit is contained in:
Justin Ethier 2018-11-14 19:01:34 -05:00
parent a06d2793c8
commit 8fa6513571
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
scheme/cyclone/cgen.sld
View file

@ -1182,9 +1182,10 @@
args))) args)))
exps)) exps))
((equal? 'Cyc-local-set! fun) ((equal? 'Cyc-local-set! fun)
;:(trace:error `(JAE DEBUG Cyc-local-set ,exp))
(let ((val-exp (c-compile-exp (caddr exp) append-preamble cont ast-id trace cps?))) (let ((val-exp (c-compile-exp (caddr exp) append-preamble cont ast-id trace cps?)))
(c-code/vars (c-code/vars
(string-append (mangle (cadr exp) " = " (c:body val-exp) ";")) (string-append (mangle (cadr exp)) " = " (c:body val-exp) ";")
(c:allocs val-exp))) (c:allocs val-exp)))
;(c-code (string-append (mangle (cadr exp)) " = " (mangle (caddr exp)) ";")) ;(c-code (string-append (mangle (cadr exp)) " = " (mangle (caddr exp)) ";"))
) )