~ chicken-core (chicken-5) 9e9905340d73cb6c71545ee73258feebf9fa7da8

commit 9e9905340d73cb6c71545ee73258feebf9fa7da8
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sun Feb 28 23:33:08 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sun Feb 28 23:33:08 2010 +0100

    added missing pointer+ to lolevel import lib

diff --git a/lolevel.import.scm b/lolevel.import.scm
index 4897f319..d27a356d 100644
--- a/lolevel.import.scm
+++ b/lolevel.import.scm
@@ -67,7 +67,7 @@
    pointer-f32-set!
    pointer-f64-ref
    pointer-f64-set!
-   pointer-offset
+   pointer+
    pointer-s16-ref
    pointer-s16-set!
    pointer-s32-ref
diff --git a/lolevel.scm b/lolevel.scm
index fa0445f4..64544d02 100644
--- a/lolevel.scm
+++ b/lolevel.scm
@@ -288,8 +288,6 @@ 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/manual/Unit posix b/manual/Unit posix
index 1ac12793..7d6b512f 100644
--- a/manual/Unit posix	
+++ b/manual/Unit posix	
@@ -412,7 +412,7 @@ port or a file-descriptor.
 
 ==== file-size
 
-<procedure>(file-size FILENAME)</procedure>
+<procedure>(file-size FILE)</procedure>
 
 Returns the size of the file designated by {{FILE}}.  {{FILE}}
 may be a filename or a file-descriptor.  If the file does not exist,
diff --git a/posixunix.scm b/posixunix.scm
index 4ba55148..e730ef3c 100644
--- a/posixunix.scm
+++ b/posixunix.scm
@@ -1937,10 +1937,10 @@ EOF
       (let ([addr (if (not addr) (##sys#null-pointer) addr)]
             [off (if (pair? off) (car off) 0)] )
         (unless (and (##core#inline "C_blockp" addr) (##core#inline "C_specialp" addr))
-                (##sys#signal-hook #:type-error 'map-file-to-memory "bad argument type - not a foreign pointer" addr) )
+	  (##sys#signal-hook #:type-error 'map-file-to-memory "bad argument type - not a foreign pointer" addr) )
         (let ([addr2 (mmap addr len prot flag fd off)])
           (when (eq? -1 (##sys#pointer->address addr2))
-                (posix-error #:file-error 'map-file-to-memory "cannot map file to memory" addr len prot flag fd off) )
+	    (posix-error #:file-error 'map-file-to-memory "cannot map file to memory" addr len prot flag fd off) )
           (##sys#make-structure 'mmap addr2 len) ) ) ) ) )
 
 (define unmap-file-from-memory
@@ -1949,7 +1949,7 @@ EOF
       (##sys#check-structure mmap 'mmap 'unmap-file-from-memory)
       (let ([len (if (pair? len) (car len) (##sys#slot mmap 2))])
         (unless (eq? 0 (munmap (##sys#slot mmap 1) len))
-                (posix-error #:file-error 'unmap-file-from-memory "cannot unmap file from memory" mmap len) ) ) ) ) )
+	  (posix-error #:file-error 'unmap-file-from-memory "cannot unmap file from memory" mmap len) ) ) ) ) )
 
 (define (memory-mapped-file-pointer mmap)
   (##sys#check-structure mmap 'mmap 'memory-mapped-file-pointer)
diff --git a/types.db b/types.db
index fd93bd0c..54e7a960 100644
--- a/types.db
+++ b/types.db
@@ -598,7 +598,6 @@
 (pointer->address (procedure pointer->address (pointer) number))
 (pointer-like? (procedure pointer-like? (*) boolean))
 (pointer->object (procedure pointer->object (pointer) *))
-(pointer-offset deprecated)
 (pointer-f32-ref (procedure pointer-f32-ref (pointer) number))
 (pointer-f32-set! (procedure pointer-f32-set! (pointer number) undefined))
 (pointer-f64-ref (procedure pointer-f64-ref (pointer) number))