diff options
Diffstat (limited to 'src/algebra/fname.spad.pamphlet')
| -rw-r--r-- | src/algebra/fname.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/fname.spad.pamphlet b/src/algebra/fname.spad.pamphlet index bfc9dc11..e9c558fb 100644 --- a/src/algebra/fname.spad.pamphlet +++ b/src/algebra/fname.spad.pamphlet @@ -99,8 +99,8 @@ FileName(): FileNameCategory == add extension(f:%): String == fnameType(f)$Lisp exists? f == existingFile?(f::String)$Lisp - readable? f == readablep(f::String)$Lisp : Integer = 1 - writable? f == writeablep(f::String)$Lisp : Integer = 1 + readable? f == readablep(f::String)$Lisp = 1@SingleInteger + writable? f == writeablep(f::String)$Lisp > 0@SingleInteger new(d,pref,e) == fnameNew(d,pref,e)$Lisp |