Changeset 13714 in project for chicken


Ignore:
Timestamp:
03/12/09 19:09:18 (11 years ago)
Author:
Kon Lovett
Message:

Rmvd dup. Added opers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-primitive-object-inlines.scm

    r13705 r13714  
    3434;; k       - continuation
    3535
    36 
    3736;;; Unsafe Type Predicates
    3837
     
    134133(define-inline (%locative-type? x) (##core#inline "C_locativep" x))
    135134
    136 
    137135;;; Safe Type Predicates
    138136
     
    259257(define-inline (%forwarded? x) (##core#inline "C_forwardedp" x))
    260258
    261 
    262259;;; Operations
    263260
     
    265262
    266263(define-inline (%eq? x y) (##core#inline "C_eqp" x y))
    267 
    268 (define-inline (%peek-signed-integer b i) ((##core#primitive "C_peek_signed_integer") b i))
    269 (define-inline (%peek-unsigned-integer b i) ((##core#primitive "C_peek_unsigned_integer") b i))
    270 (define-inline (%poke-integer b i n) (##core#inline "C_poke_integer" b i n))
    271264
    272265;; Fixnum
     
    320313;; Block
    321314
     315(define-inline (%peek-signed-integer b i) ((##core#primitive "C_peek_signed_integer") b i))
     316(define-inline (%peek-unsigned-integer b i) ((##core#primitive "C_peek_unsigned_integer") b i))
     317(define-inline (%poke-integer b i n) (##core#inline "C_poke_integer" b i n))
     318
    322319;Safe
    323320
     
    435432
    436433;Unsafe
    437 
    438 (define-inline (%exact->inexact x) ((##core#primitive "C_exact_to_inexact") x))
    439434
    440435(define-inline (%fp= x y) (##core#inline "C_flonum_equalp" x y))
     
    971966
    972967(define-inline (%randomize n) (##core#inline "C_randomize" n))
     968
     969;;; Operations
     970
     971;Safe
     972
     973(define-inline (%->boolean obj) (and obj #t))
     974
     975(define-inline (%make-unique-object #!optional id) (if id (%make-vector 1 id) '#()))
Note: See TracChangeset for help on using the changeset viewer.