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.

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