- Timestamp:
- 03/12/09 19:09:18 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/chicken-primitive-object-inlines.scm
r13705 r13714 34 34 ;; k - continuation 35 35 36 37 36 ;;; Unsafe Type Predicates 38 37 … … 134 133 (define-inline (%locative-type? x) (##core#inline "C_locativep" x)) 135 134 136 137 135 ;;; Safe Type Predicates 138 136 … … 259 257 (define-inline (%forwarded? x) (##core#inline "C_forwardedp" x)) 260 258 261 262 259 ;;; Operations 263 260 … … 265 262 266 263 (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))271 264 272 265 ;; Fixnum … … 320 313 ;; Block 321 314 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 322 319 ;Safe 323 320 … … 435 432 436 433 ;Unsafe 437 438 (define-inline (%exact->inexact x) ((##core#primitive "C_exact_to_inexact") x))439 434 440 435 (define-inline (%fp= x y) (##core#inline "C_flonum_equalp" x y)) … … 971 966 972 967 (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.