diff options
author | Andy Wingo <wingo@pobox.com> | 2013-05-28 10:56:05 -0400 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-06-10 22:46:08 +0200 |
commit | 403d78f915552a6eaaf2ecd7a93b2a7dc2983585 (patch) | |
tree | 515ac3b9d08d70437256c22be56e978c3ebe4258 /test-suite/tests/peval.test | |
parent | 64fc50c294df9b6644fd40bec90eb8f4dfbc3907 (diff) | |
download | guile-403d78f915552a6eaaf2ecd7a93b2a7dc2983585.tar.gz |
Tree-il post-order rewriter no longer destructive
* module/language/tree-il.scm (pre-post-order): New helper, like
pre-order! and post-order! but not destructive.
(post-order): Implement in terms of pre-post-order, and rename from
post-order!.
* module/ice-9/compile-psyntax.scm (squeeze-tree-il):
* module/language/tree-il/canonicalize.scm (canonicalize):
* module/language/tree-il/fix-letrec.scm (fix-letrec):
* module/language/tree-il/primitives.scm (resolve-primitives): Use
post-order, and rename from the destructive
variants (squeeze-tree-il!, canonicalize!, etc). Adapt callers.
* test-suite/tests/tree-il.test (strip-source): Adapt to post-order.
* test-suite/tests/cse.test:
* test-suite/tests/peval.test:
* module/language/tree-il/optimize.scm: Adapt callers.
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r-- | test-suite/tests/peval.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test index f409e943a..abc995c22 100644 --- a/test-suite/tests/peval.test +++ b/test-suite/tests/peval.test @@ -37,7 +37,7 @@ ((_ in pat) (pass-if-peval in pat (expand-primitives! - (resolve-primitives! + (resolve-primitives (compile 'in #:from 'scheme #:to 'tree-il) (current-module))))) ((_ in pat code) @@ -489,7 +489,7 @@ ;; <https://lists.gnu.org/archive/html/bug-guile/2011-09/msg00029.html>. (pmatch (unparse-tree-il (peval (expand-primitives! - (resolve-primitives! + (resolve-primitives (compile '(let ((make-adder (lambda (x) (lambda (y) (+ x y))))) |