~ chicken-core (chicken-5) 08c72b4e65858bcc8b10cb135e5b5aa3742892b5

commit 08c72b4e65858bcc8b10cb135e5b5aa3742892b5
Author:     felix <bunny351@gmail.com>
AuthorDate: Wed Apr 21 20:04:53 2010 +0200
Commit:     felix <bunny351@gmail.com>
CommitDate: Wed Apr 21 20:04:53 2010 +0200

    added pointer-offset again, which is removed by mistake (thanks to Jim Ursetto for reporting this)

diff --git a/lolevel.scm b/lolevel.scm
index 020affde..1074d50f 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -266,6 +266,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)