diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-13 00:31:52 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-13 00:31:52 +0100 |
commit | 209c63212d98663619c566a20bfb2c6e1eacd444 (patch) | |
tree | 252f5346d892915b66411bea9850e621a084295c /module/hnh | |
parent | Add remove home button to seacrh page. (diff) | |
download | calp-209c63212d98663619c566a20bfb2c6e1eacd444.tar.gz calp-209c63212d98663619c566a20bfb2c6e1eacd444.tar.xz |
Begin1 handle multiple values.
Diffstat (limited to '')
-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)))) |