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 /tests/015 | |
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 'tests/015')
-rw-r--r-- | tests/015/awk-misc.tl | 10 |
1 files changed, 10 insertions, 0 deletions
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))) |