diff options
Diffstat (limited to 'stdlib/awk.tl')
| -rw-r--r-- | stdlib/awk.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/awk.tl b/stdlib/awk.tl index 54d2909c..d82ab8c3 100644 --- a/stdlib/awk.tl +++ b/stdlib/awk.tl @@ -289,8 +289,8 @@ (defmacro sys:awk-redir (aws-sym stream-var kind mode path body) (with-gensyms (res-sym) - ^(let ((,res-sym ,path) - (,stream-var (qref ,aws-sym (ensure-stream ,kind ,res-sym ,mode)))) + ^(let* ((,res-sym ,path) + (,stream-var (qref ,aws-sym (ensure-stream ,kind ,res-sym ,mode)))) ,(if body ^(qref ,aws-sym (close-or-flush ,stream-var ,kind ,res-sym (progn ,*body))) |