summaryrefslogtreecommitdiffstats
path: root/stdlib/awk.tl
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/awk.tl')
-rw-r--r--stdlib/awk.tl6
1 files changed, 4 insertions, 2 deletions
diff --git a/stdlib/awk.tl b/stdlib/awk.tl
index 87fe96dd..e966b1d1 100644
--- a/stdlib/awk.tl
+++ b/stdlib/awk.tl
@@ -520,8 +520,10 @@
(defmacro awk (:env outer-env . clauses)
(let ((awc (sys:awk-expander outer-env clauses)))
(with-gensyms (aws-sym awk-begf-fun awk-fun awk-endf-fun awk-retval)
- (let* ((p-actions-xform-unex (mapcar (aret ^(when (sys:awk-test ,@1 rec)
- ,*@rest))
+ (let* ((p-actions-xform-unex (mapcar (aret
+ ^(whenlet ((res (sys:awk-test ,@1
+ rec)))
+ ,*@rest))
awc.cond-actions))
(p-actions-xform (expand
^(sys:awk-mac-let ,awc ,aws-sym