[Commit] nickle ChangeLog, 1.42, 1.43 builtin-toplevel.c, 1.24, 1.25 nickle.h, 1.115, 1.116

[Bart Massey]

Committed by: bart

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

Modified Files:
	ChangeLog builtin-toplevel.c nickle.h 
Log Message:
Rename is_defined() to is_uninit().



Index: ChangeLog
===================================================================
RCS file: /local/src/CVS/nickle/ChangeLog,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- a/ChangeLog	23 Apr 2004 16:48:11 -0000	1.42
+++ b/ChangeLog	13 May 2004 21:16:52 -0000	1.43
@@ -1,3 +1,16 @@
+2004-05-13  Bart Massey  <bart at cs.pdx.edu>
+
+	* builtin-toplevel.c:
+	* nickle.h:
+	Rename is_defined() to is_uninit().
+
+2004-05-12  Bart Massey  <bart at cs.pdx.edu>
+
+	* builtin-toplevel.c:
+	* nickle.h:
+	Add a predicate is_defined() to test whether a reference
+	is to a <uninit> value.
+
 2004-04-23  Keith Packard  <keithp at keithp.com>
 
 	* test/optest.5c:

Index: builtin-toplevel.c
===================================================================
RCS file: /local/src/CVS/nickle/builtin-toplevel.c,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- a/builtin-toplevel.c	13 May 2004 08:21:44 -0000	1.24
+++ b/builtin-toplevel.c	13 May 2004 21:16:52 -0000	1.25
@@ -53,7 +53,7 @@
         { do_is_thread, "is_thread", "b", "p" },
         { do_is_bool, "is_bool", "b", "p" },
         { do_is_void, "is_void", "b", "p" },
-        { do_is_defined, "is_defined", "b", "*p" },
+        { do_is_uninit, "is_uninit", "b", "*p" },
         { do_mantissa, "mantissa", "r", "R" },
         { do_numerator, "numerator", "i", "R" },
         { do_precision, "precision", "i", "R" },
@@ -702,15 +702,15 @@
 }
 
 Value
-do_is_defined (Value av)
+do_is_uninit (Value av)
 {
     ENTER ();
     if (!av) {
 	RaiseStandardException (exception_invalid_argument,
-				"do_is_defined: invalid reference",
+				"do_is_uninit: invalid reference",
 				2, NewInt (0), av);
 	av = Void;
-    } else if (!RefValueGet(av)) {
+    } else if (RefValueGet(av)) {
 	av = FalseVal;
     } else {
 	av = TrueVal;

Index: nickle.h
===================================================================
RCS file: /local/src/CVS/nickle/nickle.h,v
retrieving revision 1.115
retrieving revision 1.116
diff -u -d -r1.115 -r1.116
--- a/nickle.h	13 May 2004 08:21:44 -0000	1.115
+++ b/nickle.h	13 May 2004 21:16:52 -0000	1.116
@@ -985,7 +985,7 @@
 Value	do_is_func (Value);
 Value	do_is_bool (Value);
 Value	do_is_void (Value);
-Value	do_is_defined (Value);
+Value	do_is_uninit (Value);
 Value	do_hash (Value);
 Value	do_Thread_get_priority (Value);
 Value	do_Thread_id_to_thread (Value);