summaryrefslogtreecommitdiff
path: root/module/language/tree-il/optimize.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-04-06 11:08:05 +0200
committerAndy Wingo <wingo@pobox.com>2014-04-06 11:12:29 +0200
commit85270a8c895f5912d688d764b686fdaeba0157d5 (patch)
tree7a9fac3436a37d3cd861d6d780ce0736e12fc76c /module/language/tree-il/optimize.scm
parentd03c3c77950dafddec69e87c5f75bec4a4197a60 (diff)
downloadguile-85270a8c895f5912d688d764b686fdaeba0157d5.tar.gz
Remove old Tree-IL CSE pass
* module/language/tree-il/cse.scm: Delete. * module/language/tree-il/optimize.scm: Remove use of Tree-IL CSE. * module/Makefile.am: Remove language/tree-il/cse.scm. * module/language/cps/compile-bytecode.scm: Rename CSE keyword to #:cse?.
Diffstat (limited to 'module/language/tree-il/optimize.scm')
-rw-r--r--module/language/tree-il/optimize.scm15
1 files changed, 3 insertions, 12 deletions
diff --git a/module/language/tree-il/optimize.scm b/module/language/tree-il/optimize.scm
index 929f27766..d5d4f43a0 100644
--- a/module/language/tree-il/optimize.scm
+++ b/module/language/tree-il/optimize.scm
@@ -22,7 +22,6 @@
#:use-module (language tree-il)
#:use-module (language tree-il primitives)
#:use-module (language tree-il peval)
- #:use-module (language tree-il cse)
#:use-module (language tree-il fix-letrec)
#:use-module (language tree-il debug)
#:use-module (ice-9 match)
@@ -33,16 +32,8 @@
((#:partial-eval? #f _ ...)
;; Disable partial evaluation.
(lambda (x e) x))
- (_ peval)))
- (cse (match (memq #:cse? opts)
- ((#:cse? #t _ ...)
- cse)
- (_
- ;; Disable Tree-IL CSE by default.
- (lambda (x) x)))))
+ (_ peval))))
(fix-letrec
(verify-tree-il
- (cse
- (verify-tree-il
- (peval (expand-primitives (resolve-primitives x env))
- env)))))))
+ (peval (expand-primitives (resolve-primitives x env))
+ env)))))