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

Experiment with requiring cont for (set!)

Browse source
This commit is contained in:
Justin Ethier 2020-01-23 13:39:34 -05:00
parent 6228fb1f1a
commit d104a0ad46
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
scheme/cyclone/cps-optimizations.sld
View file

@ -1091,8 +1091,11 @@
((and (ast:lambda? (car exp))
(every
(lambda (arg)
(or (not (prim-call? arg))
(not (prim:cont? (car arg)))))
(and
(not (set!? arg))
(or (not (prim-call? arg))
(not (prim:cont? (car arg)))
)))
(cdr exp))
(every
(lambda (param)