diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index aee7a0be..2d334946 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -37,6 +37,9 @@ import sys_-os import vmlisp namespace BOOT +module sys_-utility where + probleReadableFile : %String -> %Maybe %String + --% $COMBLOCKLIST := nil @@ -190,6 +193,10 @@ existingFile? file == PROBE_-FILE file => true false +probeReadableFile file == + readablep file > 0 => file + nil + ++ original version returned 0 on success, and 1 on failure ++ ??? fix that to return -1 on failure. $ERASE(:filearg) == |