mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

peval: elide make-prompt-tag in effect context

Browse source 
* module/language/tree-il/optimize.scm (peval): Fix a duplicate
  traversal for constructors in effect or test context.  Add support for
  eliding make-prompt-tag.

* test-suite/tests/tree-il.test ("partial evaluation"): Update the test
  for make-prompt-tag elision.
This commit is contained in:
Andy Wingo 2011-09-27 13:42:43 +02:00
parent ea726a53b2
commit 6c4ffe2b25
2 changed files with 17 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
test-suite/tests/tree-il.test
View file

@ -1282,10 +1282,16 @@
(call-with-prompt tag
(lambda () 1)
(lambda args args)))
;; FIXME: elide the (make-prompt-tag) call
(begin
(apply (primitive make-prompt-tag))
(const 1)))
(const 1))
(pass-if-peval
resolve-primitives
;; Prompt is removed if tag is unreferenced, with explicit stem
(let ((tag (make-prompt-tag "foo")))
(call-with-prompt tag
(lambda () 1)
(lambda args args)))
(const 1))
)