~ 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