diff options
Diffstat (limited to 'mew.scm')
| -rw-r--r-- | mew.scm | 9 |
1 files changed, 6 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 () |