diff options
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/awk.tl | 6 | ||||
| -rw-r--r-- | stdlib/doc-syms.tl | 1 |
2 files changed, 5 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 diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 1ca8ce22..035b483f 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -1622,6 +1622,7 @@ ("replace-tree-iter" "N-01225FF3") ("replace-vec" "N-01F59E62") ("require" "D-007F") + ("res" "N-03D33A57") ("reset-struct" "N-002A609F") ("rest" "N-02288559") ("ret" "N-033F39EF") |