~ 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