diff options
author | Andy Wingo <wingo@pobox.com> | 2023-11-23 12:30:36 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2023-11-23 12:30:36 +0100 |
commit | 83449a8683abee5b71961f7fe891f3b8c894e14b (patch) | |
tree | 4d5a7bf600cd505bec8564a4b7e3d5477d8cc57f /module/language | |
parent | 711077586b6ebe3479bac54f59ceb8c24603acd0 (diff) | |
download | guile-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.scm | 9 |
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* |