~ chicken-core (chicken-5) 6abd14f4a19ca5ebe24d40cdbadd302ee2332521

commit 6abd14f4a19ca5ebe24d40cdbadd302ee2332521
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed May 11 05:27:35 2011 -0400
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed May 11 05:27:35 2011 -0400

    deprecated null-pointer[?]

diff --git a/lolevel.scm b/lolevel.scm
index c3de7459..d005c70d 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -222,9 +222,9 @@ EOF
   (##sys#check-special ptr 'pointer->address)
   (##sys#pointer->address ptr) )
 
-(define null-pointer ##sys#null-pointer)
+(define null-pointer ##sys#null-pointer) ; DEPRECATED
 
-(define (null-pointer? ptr)
+(define (null-pointer? ptr)		; DEPRECATED
   (##sys#check-special ptr 'null-pointer?)
   (##core#inline "C_null_pointerp" ptr))
 
diff --git a/manual/Unit lolevel b/manual/Unit lolevel
index 078ee79c..9f13b3af 100644
--- a/manual/Unit lolevel	
+++ b/manual/Unit lolevel	
@@ -62,21 +62,6 @@ This procedure could be defined as follows:
 </enscript>
 
 
-==== null-pointer
-
-<procedure>(null-pointer)</procedure>
-
-Another way to say {{(address->pointer 0)}}.
-
-
-==== null-pointer?
-
-<procedure>(null-pointer? POINTER*)</procedure>
-
-Returns {{#t}} if the pointer-like object {{POINTER*}} contains a {{NULL}} pointer,
-or {{#f}} otherwise.
-
-
 ==== object->pointer
 
 <procedure>(object->pointer X)</procedure>
diff --git a/types.db b/types.db
index 28783eb7..eb593380 100644
--- a/types.db
+++ b/types.db
@@ -622,8 +622,8 @@
 (make-weak-locative (procedure make-weak-locative (* #!optional fixnum) locative))
 (move-memory! (procedure move-memory! (* * #!optional fixnum fixnum fixnum) *))
 (mutate-procedure (procedure mutate-procedure (procedure procedure) procedure))
-(null-pointer (procedure null-pointer () pointer))
-(null-pointer? (procedure null-pointer? (pointer) boolean))
+(null-pointer deprecated)
+(null-pointer? deprecated)
 (number-of-bytes (procedure number-of-bytes (*) fixnum))
 (number-of-slots (procedure number-of-slots (*) fixnum))
 (object->pointer (procedure object->pointer (*) *))