mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 04:15:36 +02:00
Code Activity

Ensure <prompt> handler is values handler

Browse source 
* module/language/tree-il/primitives.scm (call-with-prompt): Only pass
  "values handlers" as handler: lambdas with only req and rest args, and
  only one clause.
* module/language/tree-il/compile-cps.scm (canonicalize): Remove
  eta-conversion pass here.
* test-suite/tests/peval.test ("partial evaluation"): Adapt test.
This commit is contained in:
Andy Wingo 2020-05-04 10:44:10 +02:00
parent d6b6daca37
commit 167350db21
3 changed files with 46 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

22
test-suite/tests/peval.test
View file

@ -1223,13 +1223,21 @@
(call-with-prompt tag
(lambda () 1)
handler)
(prompt #f
(toplevel tag)
(lambda _
(lambda-case
((() #f #f #f () ())
(const 1))))
(toplevel handler)))
(let (handler) (_) ((toplevel handler))
(if (primcall procedure? (lexical handler _))
(prompt #f
(toplevel tag)
(lambda _
(lambda-case
((() #f #f #f () ())
(const 1))))
(lambda _
(lambda-case
((() #f args #f () (_))
(primcall apply
(lexical handler _)
(lexical args _))))))
(primcall throw . _))))
(pass-if-peval
;; `while' without `break' or `continue' has no prompts and gets its