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

Remove experimental code

Browse source
This commit is contained in:
Justin Ethier 2018-12-18 16:25:24 -05:00
parent 49017f5731
commit e864049136
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -929,9 +929,7 @@
(and (and
arg ;; #f is a special value for init, so do not optimize it for now arg ;; #f is a special value for init, so do not optimize it for now
(or (const? arg) (or (const? arg)
(quote? arg) (quote? arg))))
(ref? arg)
)))
(cdr exp)) (cdr exp))
) )
;; Check for primitive calls that can be optimized out ;; Check for primitive calls that can be optimized out