~ chicken-core (chicken-5) 08493d91d5b2b64b1396d0a2c0866deb324d0551


commit 08493d91d5b2b64b1396d0a2c0866deb324d0551
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 9 08:30:34 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 9 08:30:34 2011 +0200

    marked null-pointer? as deprecated in import lib; removed deprecated pointer-offset

diff --git a/lolevel.import.scm b/lolevel.import.scm
index daf41c22..7dcac97f 100644
--- a/lolevel.import.scm
+++ b/lolevel.import.scm
@@ -46,7 +46,7 @@
    mutate-procedure			; DEPRECATED
    mutate-procedure!
    null-pointer
-   null-pointer?
+   null-pointer?			; DEPRECATED
    number-of-bytes
    number-of-slots
    object->pointer
diff --git a/lolevel.scm b/lolevel.scm
index c0617599..8e4af8c1 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -245,8 +245,6 @@ EOF
   (foreign-lambda* nonnull-c-pointer ([c-pointer ptr] [integer off])
     "C_return((unsigned char *)ptr + off);") )
 
-(define pointer-offset pointer+)	; DEPRECATED
-
 (define align-to-word
   (let ([align (foreign-lambda integer "C_align" integer)])
     (lambda (x)
Trap