Changeset 13697 in project


Ignore:
Timestamp:
03/12/09 10:29:00 (11 years ago)
Author:
Kon Lovett
Message:

New prims.

Location:
release/4/err5rs-arithmetic/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/err5rs-arithmetic/trunk/chicken-primitive-object-inlines.scm

    r13667 r13697  
    3737;;; Unsafe Type Predicates
    3838
    39 ;; Immediate
    40 
    41 (define-inline (%immediate? x) (##core#inline "C_immp" x))
    42 
    4339;; Fixnum
    4440
     
    6965(define-inline (%unbound-type? x) (##core#inline "C_unboundvaluep" x))
    7066
    71 ;; Block (anything not immediate)
    72 
    73 (define-inline (%block? x) (##core#inline "C_blockp" x))
    74 
    75 ;; Special
    76 
    77 (define-inline (%special? x) (##core#inline "C_specialp" x))
    78 
    7967;; Byteblock
    8068
     
    9684
    9785(define-inline (%lambda-info-type? x) (##core#inline "C_lambdainfop" x))
    98 
    99 ;; Wordblock (special block)
    100 
    101 (define-inline (%wordblock? x) (and (%block? x) (%special? x)))
    10286
    10387;; Vector
     
    378362; generic-byteblock isa bytevector, string, flonum, or lambda-info
    379363(define-inline (%generic-byteblock? x)
    380   (or (bytevector? x) (string? x) (flonum? x) (lambda-info? x)))
     364  (or (bytevector? x) (string? x) (flonum? x) (lambda-info? x)) )
    381365
    382366;; Bytevector (byteblock)
     
    402386  (let ((n (%bytevector-length bv1)))
    403387    (and (%fx= n (%bytevector-length bv2))
    404          (%fx= 0 (##core#inline "C_string_compare" bv1 bv2 n)) ) )
     388         (%fx= 0 (##core#inline "C_string_compare" bv1 bv2 n)) ) ) )
    405389
    406390(define-inline (%bytevector-ref bv i) (%byteblock-ref bv i))
  • release/4/err5rs-arithmetic/trunk/err5rs-arithmetic.meta

    r13619 r13697  
    77 (doc-from-wiki)
    88 (synopsis "ERR5RS Arithmetic")
    9  (needs setup-helper srfi-1 int-limits mathh)
     9 (needs setup-helper int-limits mathh)
    1010 (files
    1111  "tests"
Note: See TracChangeset for help on using the changeset viewer.