diff options
| author | Leah Neukirchen <leah@vuxu.org> | 2022-11-11 21:21:26 +0100 |
|---|---|---|
| committer | Leah Neukirchen <leah@vuxu.org> | 2022-11-11 21:21:34 +0100 |
| commit | 9c2cf3e8ae31de4aa519aff876563172aefcd99c (patch) | |
| tree | 80423663b25b79327b73ae3178d77bf65f0988ac | |
| parent | f232e1a585600152a975f7d66291edf145a3fda7 (diff) | |
| download | mew-9c2cf3e8ae31de4aa519aff876563172aefcd99c.tar.gz mew-9c2cf3e8ae31de4aa519aff876563172aefcd99c.tar.xz mew-9c2cf3e8ae31de4aa519aff876563172aefcd99c.zip | |
esc: when called without arguments, return void
| -rw-r--r-- | mew.scm | 9 | ||||
| -rw-r--r-- | tests/test.mew | 1 |
2 files changed, 7 insertions, 3 deletions
diff --git a/mew.scm b/mew.scm index 92197b3..10a1f41 100644 --- a/mew.scm +++ b/mew.scm @@ -191,9 +191,12 @@ (define-syntax esc (syntax-rules () ((_ return body ...) - (call-with-current-continuation - (lambda (return) - (seq body ...)))))) + (receive vals (call-with-current-continuation + (lambda (return) + (seq body ...))) + (if (null? vals) + (void) + (car vals)))))) (define-syntax fin (syntax-rules () diff --git a/tests/test.mew b/tests/test.mew index 904127d..3af29c0 100644 --- a/tests/test.mew +++ b/tests/test.mew @@ -147,6 +147,7 @@ (test-group "esc" (test #t (void? (esc ret))) + (test #t (void? (esc ret (ret)))) (test 42 (esc ret (* 6 7))) (test 42 (esc ret |