diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2016-09-09 06:09:34 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2016-09-09 06:09:34 -0700 |
| commit | 86f99969e159e3e800794e609490694317d13adb (patch) | |
| tree | ec01374f84285aec3aa8dc47c55da29cbc48aa9f | |
| parent | 09d682f419016ad906f8448fd2c245e411b5358c (diff) | |
| download | txr-86f99969e159e3e800794e609490694317d13adb.tar.gz txr-86f99969e159e3e800794e609490694317d13adb.tar.bz2 txr-86f99969e159e3e800794e609490694317d13adb.zip | |
awk macro: better code for rng with placelet.
* share/txr/stdlib/awk.tl (sys:awk-let): Use our
wonderful placelet macro instead of symacrolet for binding the
flag alias to the flag place. This removes the duplicate
evaluations of the slot access.
| -rw-r--r-- | share/txr/stdlib/awk.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index a2d03361..4c40494a 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -145,7 +145,7 @@ (from-expr-ex (sys:expand from-expr e)) (to-expr-ex (sys:expand to-expr e))) (push rng-temp (qref ,awc rng-expr-temps)) - (push ^(symacrolet ((flag (vecref (qref ,',aws-sym rng-vec) ,ix))) + (push ^(placelet ((flag (vecref (qref ,',aws-sym rng-vec) ,ix))) (cond (,from-expr-ex (set flag t)) (,to-expr-ex (zap flag) t) |