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

Fix TODO

Browse source
This commit is contained in:
Justin Ethier 2018-10-19 13:33:47 -04:00
parent 23aaae8f05
commit 88f0db1547
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/cyclone/cgen.sld
View file

@ -1537,11 +1537,12 @@
(c-code (c-code
;; Only trace when entering initial defined function ;; Only trace when entering initial defined function
(cond (cond
(has-closure? "") (has-closure?
(if has-loop? "\n while(1) {\n" "")
)
(else (else
(string-append (string-append
(st:->code trace) (st:->code trace)
TODO: does not work for calls-self, need to invoke that elsewhere...
(if has-loop? "\n while(1) {\n" "") (if has-loop? "\n while(1) {\n" "")
)))) ))))
body) body)