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

Bug fixes, explicitly handle const's

Browse source
This commit is contained in:
Justin Ethier 2016-05-18 22:42:29 -04:00
parent e1d7ac548f
commit 113e0d740b
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -104,6 +104,8 @@
(lambda (expr)
(analyze expr id))
(ast:lambda-body exp))))
((const? exp) #f)
((quote? exp) #f)
((ref? exp)
(let ((var (adb:get/default exp (adb:make-var))))
(adbv:set-ref-by! var (cons lid (adbv:ref-by var)))
@ -127,9 +129,10 @@
; Application:
((app? exp)
(map (lambda (e)
(analyze e lid))
exp))
(for-each
(lambda (e)
(analyze e lid))
exp))
;TODO ((app? exp) (map (lambda (e) (wrap-mutables e globals)) exp))
; Nothing to analyze for these?
@ -153,6 +156,8 @@
(lambda (expr)
(analyze2 expr))
(ast:lambda-body exp))))
((const? exp) #f)
((quote? exp) #f)
;; TODO:
; ((ref? exp)
; (let ((var (adb:get/default exp (adb:make-var))))
@ -169,7 +174,7 @@
,(analyze2 (if->else exp))))
; Application:
((app? exp)
(map (lambda (e) (analyze2 e)) exp))
(for-each (lambda (e) (analyze2 e)) exp))
(else #f)))
;; TODO: make another pass for simple lambda's