diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/path-test.tl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/share/txr/stdlib/path-test.tl b/share/txr/stdlib/path-test.tl index 4f589fef..b57e13dd 100644 --- a/share/txr/stdlib/path-test.tl +++ b/share/txr/stdlib/path-test.tl @@ -25,10 +25,9 @@ ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (defun sys:do-path-test (statfun path testfun) - [testfun (if (or (stringp path) - (streamp path)) - (ignerr [statfun path]) - path)]) + [testfun (if (typep path 'stat) + path + (ignerr [statfun path]))]) (eval-only (defmacro sys:path-test ((sym statfun path) . body) |