diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2020-04-09 06:17:32 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2020-04-09 06:17:32 -0700 |
| commit | dd23b426d1a5c1790a4886201628476bf73fe7b8 (patch) | |
| tree | 98b3f1631fe12b3ae7e6178bf4401bcb09b674d8 /share | |
| parent | ffe8bd7754c0dd9c8bb73fe1c46ff7d4bbe5f02a (diff) | |
| download | txr-dd23b426d1a5c1790a4886201628476bf73fe7b8.tar.gz txr-dd23b426d1a5c1790a4886201628476bf73fe7b8.tar.bz2 txr-dd23b426d1a5c1790a4886201628476bf73fe7b8.zip | |
path testing functions: accept stream argument.
* share/txr/stdlib/path-test.tl (do-path-test): Check also
for the argument being a stream, and pass to statfun.
* txr.1: Documentation updated and improved.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/path-test.tl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/share/txr/stdlib/path-test.tl b/share/txr/stdlib/path-test.tl index d550352b..4f589fef 100644 --- a/share/txr/stdlib/path-test.tl +++ b/share/txr/stdlib/path-test.tl @@ -25,7 +25,10 @@ ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (defun sys:do-path-test (statfun path testfun) - [testfun (if (stringp path) (ignerr [statfun path]) path)]) + [testfun (if (or (stringp path) + (streamp path)) + (ignerr [statfun path]) + path)]) (eval-only (defmacro sys:path-test ((sym statfun path) . body) |