Changeset 14077 in project
- Timestamp:
- 04/04/09 18:54:51 (11 years ago)
- Location:
- release/4/box
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/box/tags/2.0.0/chicken-primitive-object-inlines.scm
r14027 r14077 748 748 (define-inline (%port-data port) (%wordblock-ref? port 9)) 749 749 750 (define-inline (%input-port? x) (and (%port x) (%port-input-mode? x))) 751 (define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x)))) 752 750 753 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp)) 751 754 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f)) … … 833 836 (##core#inline "C_vector_to_closure" v) 834 837 v ) ) 838 839 (define-inline (%procedure? x) (%closure? x)) 835 840 836 841 (define-inline (%vector->closure! v a) … … 992 997 (define-inline (%positive? n) (##core#inline "C_i_positivep" n)) 993 998 (define-inline (%negative? n) (##core#inline "C_i_negativep" n)) 999 (define-inline (%cardinal? fx) (%<= 0 fx)) 1000 994 1001 (define-inline (%odd? n) (##core#inline "C_i_oddp" n)) 995 1002 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 996 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))997 1003 998 1004 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) -
release/4/box/tags/2.1.0/chicken-primitive-object-inlines.scm
r14027 r14077 748 748 (define-inline (%port-data port) (%wordblock-ref? port 9)) 749 749 750 (define-inline (%input-port? x) (and (%port x) (%port-input-mode? x))) 751 (define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x)))) 752 750 753 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp)) 751 754 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f)) … … 833 836 (##core#inline "C_vector_to_closure" v) 834 837 v ) ) 838 839 (define-inline (%procedure? x) (%closure? x)) 835 840 836 841 (define-inline (%vector->closure! v a) … … 992 997 (define-inline (%positive? n) (##core#inline "C_i_positivep" n)) 993 998 (define-inline (%negative? n) (##core#inline "C_i_negativep" n)) 999 (define-inline (%cardinal? fx) (%<= 0 fx)) 1000 994 1001 (define-inline (%odd? n) (##core#inline "C_i_oddp" n)) 995 1002 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 996 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))997 1003 998 1004 (define-inline (%+ x y) ((##core#primitive "C_plus") x y)) -
release/4/box/trunk/chicken-primitive-object-inlines.scm
r14027 r14077 748 748 (define-inline (%port-data port) (%wordblock-ref? port 9)) 749 749 750 (define-inline (%input-port? x) (and (%port x) (%port-input-mode? x))) 751 (define-inline (%output-port? x) (and (%port x) (not (%port-input-mode? x)))) 752 750 753 (define-inline (%port-filep-set! port fp) (%poke-integer port 0 fp)) 751 754 (define-inline (%port-input-mode-set! port f) (%wordblock-set!/immediate port 1 f)) … … 833 836 (##core#inline "C_vector_to_closure" v) 834 837 v ) ) 838 839 (define-inline (%procedure? x) (%closure? x)) 835 840 836 841 (define-inline (%vector->closure! v a) … … 992 997 (define-inline (%positive? n) (##core#inline "C_i_positivep" n)) 993 998 (define-inline (%negative? n) (##core#inline "C_i_negativep" n)) 999 (define-inline (%cardinal? fx) (%<= 0 fx)) 1000 994 1001 (define-inline (%odd? n) (##core#inline "C_i_oddp" n)) 995 1002 (define-inline (%even? n) (##core#inline "C_i_evenp" n)) 996 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))997 1003 998 1004 (define-inline (%+ x y) ((##core#primitive "C_plus") x y))
Note: See TracChangeset
for help on using the changeset viewer.