diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-05-23 21:45:33 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-05-23 21:45:33 -0700 |
| commit | 0a9f9ae8d11a43108f0b8fffae954da4f9539b7f (patch) | |
| tree | 2d3dd1f48ed6b5bd3a080170d7738a2e74330522 /stdlib | |
| parent | 41263c972c2d2892f9bb65e439f1b744a26a271f (diff) | |
| download | txr-0a9f9ae8d11a43108f0b8fffae954da4f9539b7f.tar.gz txr-0a9f9ae8d11a43108f0b8fffae954da4f9539b7f.tar.bz2 txr-0a9f9ae8d11a43108f0b8fffae954da4f9539b7f.zip | |
awk: bug: fix ->> appending redirection operator.
* stdlib/awk.tl (awk-state ensure-stream): Fix missing
handling for the :apf kind symbol used by appending.
* tests/015/awk-redir.tl: New file.
Diffstat (limited to 'stdlib')
| -rw-r--r-- | stdlib/awk.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/awk.tl b/stdlib/awk.tl index d82ab8c3..1ce292ef 100644 --- a/stdlib/awk.tl +++ b/stdlib/awk.tl @@ -194,7 +194,7 @@ (hash-update-1 self.streams ^(,kind ,path) (do or @1 (caseq kind - ((:inf :outf) (open-file path mode)) + ((:inf :outf :apf) (open-file path mode)) ((:inp :outp) (open-command path mode)))) nil)) |