From 46f53f9397c625a3e508c083416ce0c6d943a920 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 12 Sep 2016 05:44:32 -0700 Subject: awk macro: new local macros ff and mf. * share/txr/stdlib/awk.tl (sys:awk-let): New local macros. * txr.1: Documented. --- share/txr/stdlib/awk.tl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'share') 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) -- cgit v1.2.3