From 0e5257eb91dfbc2b9a44f5ae0a480b8e873dc155 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 1 Aug 2017 13:27:49 +0000 Subject: [PATCH] Reverting constant folding for now --- scheme/cyclone/cps-optimizations.sld | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 03db9a47..d825a903 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -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,12 +719,13 @@ 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)) + ;;(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) )))) (else (error "CPS optimize [1] - Unknown expression" exp))))