diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2023-08-26 01:01:23 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2023-08-26 01:01:23 -0700 |
| commit | 43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6 (patch) | |
| tree | ae71160c249441438702bd3e7763ad2e1ef15dab /stdlib/awk.tl | |
| parent | d6e02ceea56644dea341e64a1f46f8fbe43ca6b5 (diff) | |
| download | txr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.tar.gz txr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.tar.bz2 txr-43f64bd2d69cf39d09c4a3b96cd28d0966a6eda6.zip | |
awk: prn returns nil.
* stdlib/awk.tl (awk-state prn): Return nil in the no-argument
case instead of returning whatever put-string returns.
* tests/015/awk-misc.tl: New file.
* txr.1: Documented.
Diffstat (limited to 'stdlib/awk.tl')
| -rw-r--r-- | stdlib/awk.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/awk.tl b/stdlib/awk.tl index e6ce26f9..197dbf38 100644 --- a/stdlib/awk.tl +++ b/stdlib/awk.tl @@ -188,7 +188,8 @@ (put-string `@(car a)`) (put-string (if (set next (cdr a)) self.ofs self.ors)))) (t (put-string self.rec) - (put-string self.ors)))) + (put-string self.ors) + nil))) (defmeth sys:awk-state ensure-stream (self kind path mode) (hash-update-1 self.streams |