Changeset 13149 in project


Ignore:
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:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/branches/chicken-3/c-platform.scm

    r10796 r13149  
    591591(rewrite 'fixnum? 2 1 "C_fixnump" #t #f)
    592592(rewrite 'finite? 2 1 "C_i_finitep" #f #f)
    593 (rewrite '##sys#pointer? 2 1 "C_pointerp" #t #f)
     593(rewrite '##sys#pointer? 2 1 "C_anypointerp" #t #f)
    594594(rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f)
    595595(rewrite 'exact? 2 1 "C_fixnump" #f #f)
  • chicken/branches/chicken-3/library.scm

    r13143 r13149  
    38303830(define ##sys#make-pointer (##core#primitive "C_make_pointer"))
    38313831(define ##sys#make-tagged-pointer (##core#primitive "C_make_tagged_pointer"))
    3832 (define (##sys#pointer? x) (##core#inline "C_pointerp" x))
     3832(define (##sys#pointer? x) (##core#inline "C_anypointerp" x))
    38333833(define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr))
    38343834(define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x))
Note: See TracChangeset for help on using the changeset viewer.