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

Added constant folding back

Browse source
This commit is contained in:
Justin Ethier 2017-08-01 18:43:33 -04:00
parent 9a9bb4079f
commit 69a54ecb6a
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -62,7 +62,7 @@
adbf:side-effects adbf:set-side-effects!
)
(begin
#;(define
(define
*contract-env*
(let ((env (create-environment '() '())))
(eval '(define Cyc-fast-plus +) env)
@ -719,13 +719,12 @@
fnc
(map (lambda (e) (opt:contract e)) (cdr exp)))))
;; Perform constant folding if possible
;;(if (and (prim-call? exp)
;; (precompute-prim-app? result))
;; (with-handler ;; Safety check, keep going if eval fails
;; (lambda (err) result)
;; (eval result *contract-env*))
;; result))
result)
(if (and (prim-call? exp)
(precompute-prim-app? result))
(with-handler ;; Safety check, keep going if eval fails
(lambda (err) result)
(eval result *contract-env*))
result))
))))
(else
(error "CPS optimize [1] - Unknown expression" exp))))