[Commit] nickle ChangeLog,1.82,1.83 builtin-file.c,1.18,1.19

[Keith Packard]

Committed by: keithp

Update of /local/src/CVS/nickle
In directory home.keithp.com:/tmp/cvs-serv31101

Modified Files:
	ChangeLog builtin-file.c 
Log Message:
2004-08-22  Keith Packard  <keithp at keithp.com>

	* builtin-file.c: (do_File_print):
	Base is allowed to be zero (in which case it uses 10).


Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -d -r1.82 -r1.83
--- ChangeLog	22 Aug 2004 23:45:31 -0000	1.82
+++ ChangeLog	23 Aug 2004 00:42:06 -0000	1.83
@@ -1,3 +1,8 @@
+2004-08-22  Keith Packard  <keithp at keithp.com>
+
+	* builtin-file.c: (do_File_print):
+	Base is allowed to be zero (in which case it uses 10).
+
 2004-08-22  Bart Massey <bart at cs.pdx.edu>
 
 	* builtin-file.c:

Index: builtin-file.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-file.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- builtin-file.c	22 Aug 2004 23:45:32 -0000	1.18
+++ builtin-file.c	23 Aug 2004 00:42:06 -0000	1.19
@@ -215,10 +215,10 @@
     ibase = IntPart (base, "Illegal base");
     if (aborting)
 	return Void;
-    if (ibase < 2) {
+    if (ibase < 0 || ibase == 1)
+    {
 	RaiseStandardException (exception_invalid_argument,
-				"base is less than 2",
-				2, NewInt (0), base);
+				"Illegal base", 2, NewInt (0), base);
 	return Void;
     }
     iwidth = IntPart (width, "Illegal width");