Changeset 13149 in project

Timestamp:

02/02/09 09:21:50 (11 years ago)

Author:

Kon Lovett

Message:

c-platform.scm : ##sys#pointer? rewrite -> C_anypointerp
library.scm : C_pointerp -> C_anypointerp

Location:

chicken/branches/chicken-3

Files:

• c-platform.scm (modified) (1 diff)
• library.scm (modified) (1 diff)

chicken/branches/chicken-3/c-platform.scm

@@ -591 +591 @@
 (rewrite 'fixnum? 2 1 "C_fixnump" #t #f)
 (rewrite 'finite? 2 1 "C_i_finitep" #f #f)
-(rewrite '##sys#pointer? 2 1 "C_pointerp" #t #f)
+(rewrite '##sys#pointer? 2 1 "C_anypointerp" #t #f)
 (rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f)
 (rewrite 'exact? 2 1 "C_fixnump" #f #f)

chicken/branches/chicken-3/library.scm

@@ -3830 +3830 @@
 (define ##sys#make-pointer (##core#primitive "C_make_pointer"))
 (define ##sys#make-tagged-pointer (##core#primitive "C_make_tagged_pointer"))
-(define (##sys#pointer? x) (##core#inline "C_pointerp" x))
+(define (##sys#pointer? x) (##core#inline "C_anypointerp" x))
 (define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr))
 (define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x))