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

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

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

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