Changeset 13714 in project for chicken

Timestamp:

03/12/09 19:09:18 (11 years ago)

Author:

Kon Lovett

Message:

Rmvd dup. Added opers.

File:

• chicken/trunk/chicken-primitive-object-inlines.scm (modified) (7 diffs)

chicken/trunk/chicken-primitive-object-inlines.scm

@@ -34 +34 @@
 ;; k       - continuation
 
-
 ;;; Unsafe Type Predicates
 
@@ -134 +133 @@
 (define-inline (%locative-type? x) (##core#inline "C_locativep" x))
 
-
 ;;; Safe Type Predicates
 
@@ -259 +257 @@
 (define-inline (%forwarded? x) (##core#inline "C_forwardedp" x))
 
-
 ;;; Operations
 
@@ -265 +262 @@
 
 (define-inline (%eq? x y) (##core#inline "C_eqp" x y))
-
-(define-inline (%peek-signed-integer b i) ((##core#primitive "C_peek_signed_integer") b i))
-(define-inline (%peek-unsigned-integer b i) ((##core#primitive "C_peek_unsigned_integer") b i))
-(define-inline (%poke-integer b i n) (##core#inline "C_poke_integer" b i n))
 
 ;; Fixnum
@@ -320 +313 @@
 ;; Block
 
+(define-inline (%peek-signed-integer b i) ((##core#primitive "C_peek_signed_integer") b i))
+(define-inline (%peek-unsigned-integer b i) ((##core#primitive "C_peek_unsigned_integer") b i))
+(define-inline (%poke-integer b i n) (##core#inline "C_poke_integer" b i n))
+
 ;Safe
 
@@ -435 +432 @@
 
 ;Unsafe
-
-(define-inline (%exact->inexact x) ((##core#primitive "C_exact_to_inexact") x))
 
 (define-inline (%fp= x y) (##core#inline "C_flonum_equalp" x y))
@@ -971 +966 @@
 
 (define-inline (%randomize n) (##core#inline "C_randomize" n))
+
+;;; Operations
+
+;Safe
+
+(define-inline (%->boolean obj) (and obj #t))
+
+(define-inline (%make-unique-object #!optional id) (if id (%make-vector 1 id) '#()))