diff options
| -rw-r--r-- | stdlib/awk.tl | 3 | ||||
| -rw-r--r-- | tests/015/awk-misc.tl | 10 | ||||
| -rw-r--r-- | txr.1 | 5 |
3 files changed, 17 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 diff --git a/tests/015/awk-misc.tl b/tests/015/awk-misc.tl new file mode 100644 index 00000000..af61857d --- /dev/null +++ b/tests/015/awk-misc.tl @@ -0,0 +1,10 @@ +(load "../common") + +(let ((*stdout* *stdnull*)) + (test + (build + (awk + (:inputs '("")) + (t (add (prn 1 2 3)) + (add (prn))))) + (nil nil))) @@ -70174,6 +70174,11 @@ Thus if the value is the output for that argument is an empty string, rather than the text .strn nil . +The +.code prn +function returns +.codn nil . + .coNP Macro @ next .synb .mets (next) |