summaryrefslogtreecommitdiff
path: root/module/language
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-11-23 12:30:36 +0100
committerAndy Wingo <wingo@pobox.com>2023-11-23 12:30:36 +0100
commit83449a8683abee5b71961f7fe891f3b8c894e14b (patch)
tree4d5a7bf600cd505bec8564a4b7e3d5477d8cc57f /module/language
parent711077586b6ebe3479bac54f59ceb8c24603acd0 (diff)
downloadguile-83449a8683abee5b71961f7fe891f3b8c894e14b.tar.gz
prompts avoid introducing throw; fixup peval test
* test-suite/tests/peval.test ("partial evaluation"): Fix to expect raise-type-error from dynwind peval. Update prompt expectation similarly. * module/language/tree-il/primitives.scm (call-with-prompt): Use raise-type-error.
Diffstat (limited to 'module/language')
-rw-r--r--module/language/tree-il/primitives.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm
index 22a89063d..153c602b2 100644
--- a/module/language/tree-il/primitives.scm
+++ b/module/language/tree-il/primitives.scm
@@ -727,12 +727,9 @@
src '() #f 'args #f '() (list args)
(primcall apply handler (make-lexical-ref #f 'args args))
#f)))
- (primcall throw
- (const 'wrong-type-arg)
- (const "call-with-prompt")
- (const "Wrong type (expecting procedure): ~S")
- (primcall list handler)
- (primcall list handler))))))))
+ (primcall raise-type-error
+ (const #("call-with-prompt" 3 "procedure"))
+ handler)))))))
(else #f)))
(define-primitive-expander! 'abort-to-prompt*