Changeset 14015 in project


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

Updated inlines.

Location:
release/4/stack
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/stack/tags/2.0.0/chicken-primitive-object-inlines.scm

    r13829 r14015  
    965965(define-inline (%number? x) (or (%fixnum? x) (%flonum? x)))
    966966(define-inline (%integer? x) (##core#inline "C_i_integerp" x))
    967 
    968 (define-inline (%= x y) ((##core#primitive "C_i_eqvp") x y))
    969 (define-inline (%< x y) ((##core#primitive "C_i_lessp") x y))
    970 (define-inline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y))
    971 (define-inline (%> x y) ((##core#primitive "C_i_greaterp") x y))
    972 (define-inline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y))
     967(define-inline (%exact? x) (##core#inline "C_i_exactp" x))
     968(define-inline (%inexact? x) (##core#inline "C_i_inexactp" x))
     969
     970(define-inline (%= x y) (##core#inline "C_i_eqvp" x y))
     971(define-inline (%< x y) (##core#inline "C_i_lessp" x y))
     972(define-inline (%<= x y) (##core#inline "C_i_less_or_equalp" x y))
     973(define-inline (%> x y) (##core#inline "C_i_greaterp" x y))
     974(define-inline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y))
    973975
    974976(define-inline (%zero? n) (##core#inline "C_i_zerop" n))
    975977(define-inline (%positive? n) (##core#inline "C_i_positivep" n))
    976978(define-inline (%negative? n) (##core#inline "C_i_negativep" n))
    977 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
    978979(define-inline (%odd? n) (##core#inline "C_i_oddp" n))
    979980(define-inline (%even? n) (##core#inline "C_i_evenp" n))
     981(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
    980982
    981983(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
  • release/4/stack/trunk/chicken-primitive-object-inlines.scm

    r13829 r14015  
    965965(define-inline (%number? x) (or (%fixnum? x) (%flonum? x)))
    966966(define-inline (%integer? x) (##core#inline "C_i_integerp" x))
    967 
    968 (define-inline (%= x y) ((##core#primitive "C_i_eqvp") x y))
    969 (define-inline (%< x y) ((##core#primitive "C_i_lessp") x y))
    970 (define-inline (%<= x y) ((##core#primitive "C_i_less_or_equalp") x y))
    971 (define-inline (%> x y) ((##core#primitive "C_i_greaterp") x y))
    972 (define-inline (%>= x y) ((##core#primitive "C_i_greater_or_equalp") x y))
     967(define-inline (%exact? x) (##core#inline "C_i_exactp" x))
     968(define-inline (%inexact? x) (##core#inline "C_i_inexactp" x))
     969
     970(define-inline (%= x y) (##core#inline "C_i_eqvp" x y))
     971(define-inline (%< x y) (##core#inline "C_i_lessp" x y))
     972(define-inline (%<= x y) (##core#inline "C_i_less_or_equalp" x y))
     973(define-inline (%> x y) (##core#inline "C_i_greaterp" x y))
     974(define-inline (%>= x y) (##core#inline "C_i_greater_or_equalp" x y))
    973975
    974976(define-inline (%zero? n) (##core#inline "C_i_zerop" n))
    975977(define-inline (%positive? n) (##core#inline "C_i_positivep" n))
    976978(define-inline (%negative? n) (##core#inline "C_i_negativep" n))
    977 (define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
    978979(define-inline (%odd? n) (##core#inline "C_i_oddp" n))
    979980(define-inline (%even? n) (##core#inline "C_i_evenp" n))
     981(define-inline (%cardinal? n) (and (%integer? n) (%<= 0 n)))
    980982
    981983(define-inline (%+ x y) ((##core#primitive "C_plus") x y))
Note: See TracChangeset for help on using the changeset viewer.