diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index dabff1fc..3c92286a 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -176,7 +176,13 @@ (set ,flag-new nil)) (or (set flag ,flag-new) ,flag-old))) (qref ,awc rng-exprs)) - rng-temp))) + rng-temp)) + (ff (. opip-args) + ^(symacrolet ((f (rslot ,',aws-sym 'fields 'f-to-rec))) + (set f [(opip ,*opip-args) f]))) + (mf (. opip-args) + ^(symacrolet ((f (rslot ,',aws-sym 'fields 'f-to-rec))) + (set f (mapcar (opip ,*opip-args) f))))) ,*body))) (defmacro awk (:env e . clauses) |