From fde9260a842114ae27a99f7de23c9a46b79eccf4 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 20 Sep 2008 17:54:46 +0000
Subject: 	* include/cfuns.h (oa_dirname): Declare. 	*
 lib/cfuns-c.c (openaxiom_is_path_separator): New. 	(oa_dirname): Define. 
 (writeablep): Use it. 	* algebra/fname.spad.pamphlet (writable?$FileName):
 Tidy.

---
 src/algebra/fname.spad.pamphlet | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/algebra')

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
 
-- 
cgit v1.2.3