diff options
author | Andy Wingo <wingo@pobox.com> | 2013-07-29 21:55:39 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-08-11 16:45:31 +0200 |
commit | 99983d544a931c29065ecb749acd349efc5f36c5 (patch) | |
tree | a2c5855685ba71d16fc65dad3a5e5ebbc6de6737 /test-suite/tests/peval.test | |
parent | c1bff879980c3a2f107e8d7b54d0a6d8a18eefe4 (diff) | |
download | guile-99983d544a931c29065ecb749acd349efc5f36c5.tar.gz |
Inline escape-only prompt bodies in the Tree-IL
* module/language/scheme/decompile-tree-il.scm (do-decompile):
* module/language/tree-il/analyze.scm (analyze-lexicals):
* module/language/tree-il/canonicalize.scm (canonicalize):
* module/language/tree-il/compile-glil.scm (flatten-lambda-case):
* module/language/tree-il/cse.scm (cse):
* module/language/tree-il/peval.scm (peval):
* test-suite/tests/peval.test ("partial evaluation"): Partially revert
178a40928, so that escape-only prompts explicitly inline their bodies.
Diffstat (limited to 'test-suite/tests/peval.test')
-rw-r--r-- | test-suite/tests/peval.test | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test index 6d83fb79c..0b981d805 100644 --- a/test-suite/tests/peval.test +++ b/test-suite/tests/peval.test @@ -1137,10 +1137,7 @@ (lambda (k x) x)) (prompt #t (toplevel tag) - (lambda _ - (lambda-case - ((() #f #f #f () ()) - (const 1)))) + (const 1) (lambda _ (lambda-case (((k x) #f #f #f () (_ _)) |