~ chicken-core (chicken-5) bc0efaf9d8a1a82d00a28b370fc397f39b9f3643

commit bc0efaf9d8a1a82d00a28b370fc397f39b9f3643
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Mar 2 12:52:49 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Mar 2 12:52:49 2010 +0100

    resurrected pointer-offset

diff --git a/lolevel.import.scm b/lolevel.import.scm
index d27a356d..16380043 100644
--- a/lolevel.import.scm
+++ b/lolevel.import.scm
@@ -62,6 +62,7 @@
    object-unevict
    pointer->address
    pointer-like?
+   pointer-offset			; DEPRECATED
    pointer->object
    pointer-f32-ref
    pointer-f32-set!
diff --git a/lolevel.scm b/lolevel.scm
index 64544d02..fa0445f4 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -288,6 +288,8 @@ EOF
   (foreign-lambda* nonnull-c-pointer ([c-pointer ptr] [integer off])
     "return((unsigned char *)ptr + off);") )
 
+(define pointer-offset pointer+)	; DEPRECATED
+
 (define align-to-word
   (let ([align (foreign-lambda integer "C_align" integer)])
     (lambda (x)
diff --git a/types.db b/types.db
index 54e7a960..22db47cb 100644
--- a/types.db
+++ b/types.db
@@ -602,6 +602,7 @@
 (pointer-f32-set! (procedure pointer-f32-set! (pointer number) undefined))
 (pointer-f64-ref (procedure pointer-f64-ref (pointer) number))
 (pointer-f64-set! (procedure pointer-f64-set! (pointer number) undefined))
+(pointer-offset deprecated)
 (pointer+ (procedure pointer+ (pointer fixnum) pointer))
 (pointer-s16-ref (procedure pointer-s16-ref (pointer) fixnum))
 (pointer-s16-set! (procedure pointer-s16-set! (pointer fixnum) undefined))