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

Issue #207 - Added comments

Browse source
This commit is contained in:
Justin Ethier 2017-07-27 11:43:49 +00:00
parent 67ca9edbec
commit e8aa42e247
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -718,9 +718,10 @@
(cons (cons
fnc fnc
(map (lambda (e) (opt:contract e)) (cdr exp))))) (map (lambda (e) (opt:contract e)) (cdr exp)))))
;; Perform constant folding if possible
(if (and (prim-call? exp) (if (and (prim-call? exp)
(precompute-prim-app? result)) (precompute-prim-app? result))
(with-handler (with-handler ;; Safety check, keep going if eval fails
(lambda (err) result) (lambda (err) result)
(eval result *contract-env*)) (eval result *contract-env*))
result)) result))