diff options
Diffstat (limited to 'share')
| -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) |