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

Always create a meaningful top-level list of exprs

Browse source
This commit is contained in:
Justin Ethier 2015-05-15 13:03:07 -04:00
parent 28bde5821f
commit 0c983a6a08
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
trans.scm
View file

@ -899,7 +899,8 @@
(append (append
(reverse globals) (reverse globals)
(expand (expand
`((begin ,@(reverse exprs)))))) ;; 0 to ensure we always create a meaningful top-level
`((begin 0 ,@(reverse exprs))))))
(else (else
(cond (cond
((define? (car top-lvl)) ((define? (car top-lvl))