Changeset 13149 in project
- Timestamp:
- 02/02/09 09:21:50 (11 years ago)
- Location:
- chicken/branches/chicken-3
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/branches/chicken-3/c-platform.scm
r10796 r13149 591 591 (rewrite 'fixnum? 2 1 "C_fixnump" #t #f) 592 592 (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) 594 594 (rewrite '##sys#generic-structure? 2 1 "C_structurep" #t #f) 595 595 (rewrite 'exact? 2 1 "C_fixnump" #f #f) -
chicken/branches/chicken-3/library.scm
r13143 r13149 3830 3830 (define ##sys#make-pointer (##core#primitive "C_make_pointer")) 3831 3831 (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)) 3833 3833 (define (##sys#set-pointer-address! ptr addr) (##core#inline "C_update_pointer" addr ptr)) 3834 3834 (define (##sys#bytevector? x) (##core#inline "C_bytevectorp" x))
Note: See TracChangeset
for help on using the changeset viewer.