diff options
Diffstat (limited to 'module/hnh/util.scm')
| -rw-r--r-- | module/hnh/util.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 7fa3419d..8cbc8c8d 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -137,10 +137,10 @@ (define-syntax-rule (begin1 first rest ...) - (let ((return first)) - rest ... - return)) - + (call-with-values (lambda () first) + (lambda returned + rest ... + (apply values returned)))) |