diff options
author | Andy Wingo <wingo@pobox.com> | 2014-04-06 11:08:05 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-04-06 11:12:29 +0200 |
commit | 85270a8c895f5912d688d764b686fdaeba0157d5 (patch) | |
tree | 7a9fac3436a37d3cd861d6d780ce0736e12fc76c /module/language/tree-il/optimize.scm | |
parent | d03c3c77950dafddec69e87c5f75bec4a4197a60 (diff) | |
download | guile-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.scm | 15 |
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))))) |