Changeset 14077 in project

Timestamp:

04/04/09 18:54:51 (11 years ago)

Author:

Kon Lovett

Message:

Update.

Location:

release/4/box

Files:

• tags/2.0.0/chicken-primitive-object-inlines.scm (modified) (3 diffs)
• tags/2.1.0/chicken-primitive-object-inlines.scm (modified) (3 diffs)
• trunk/chicken-primitive-object-inlines.scm (modified) (3 diffs)

release/4/box/tags/2.0.0/chicken-primitive-object-inlines.scm

@@ -748 +748 @@
 (define-inline (%port-data port) (%wordblock-ref? port 9))
 
+(define-inline (%input-port? x) (and (%port x) (%port-input-mode? x)))
+(define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x))))
+
 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp))
 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f))
@@ -833 +836 @@
     (##core#inline "C_vector_to_closure" v)
     v ) )
+
+(define-inline (%procedure? x) (%closure? x))
 
 (define-inline (%vector->closure! v a)
@@ -992 +997 @@
 (define-inline (%positive? n) (##core#inline "C_i_positivep" n))
 (define-inline (%negative? n) (##core#inline "C_i_negativep" n))
+(define-inline (%cardinal? fx) (%<= 0 fx))
+
 (define-inline (%odd? n) (##core#inline "C_i_oddp" n))
 (define-inline (%even? n) (##core#inline "C_i_evenp" n))
-(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
 
 (define-inline (%+ x y) ((##core#primitive "C_plus") x y))

release/4/box/tags/2.1.0/chicken-primitive-object-inlines.scm

@@ -748 +748 @@
 (define-inline (%port-data port) (%wordblock-ref? port 9))
 
+(define-inline (%input-port? x) (and (%port x) (%port-input-mode? x)))
+(define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x))))
+
 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp))
 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f))
@@ -833 +836 @@
     (##core#inline "C_vector_to_closure" v)
     v ) )
+
+(define-inline (%procedure? x) (%closure? x))
 
 (define-inline (%vector->closure! v a)
@@ -992 +997 @@
 (define-inline (%positive? n) (##core#inline "C_i_positivep" n))
 (define-inline (%negative? n) (##core#inline "C_i_negativep" n))
+(define-inline (%cardinal? fx) (%<= 0 fx))
+
 (define-inline (%odd? n) (##core#inline "C_i_oddp" n))
 (define-inline (%even? n) (##core#inline "C_i_evenp" n))
-(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
 
 (define-inline (%+ x y) ((##core#primitive "C_plus") x y))

release/4/box/trunk/chicken-primitive-object-inlines.scm

@@ -748 +748 @@
 (define-inline (%port-data port) (%wordblock-ref? port 9))
 
+(define-inline (%input-port? x) (and (%port x) (%port-input-mode? x)))
+(define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x))))
+
 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp))
 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f))
@@ -833 +836 @@
     (##core#inline "C_vector_to_closure" v)
     v ) )
+
+(define-inline (%procedure? x) (%closure? x))
 
 (define-inline (%vector->closure! v a)
@@ -992 +997 @@
 (define-inline (%positive? n) (##core#inline "C_i_positivep" n))
 (define-inline (%negative? n) (##core#inline "C_i_negativep" n))
+(define-inline (%cardinal? fx) (%<= 0 fx))
+
 (define-inline (%odd? n) (##core#inline "C_i_oddp" n))
 (define-inline (%even? n) (##core#inline "C_i_evenp" n))
-(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
 
 (define-inline (%+ x y) ((##core#primitive "C_plus") x y))