Changeset 13695 in project


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

Rmvd dups. Fixed '%bytevector=?' parens.

Location:
chicken/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/chicken-primitive-object-inlines.scm

    r13672 r13695  
    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))
  • chicken/trunk/chicken.import.scm

    r13694 r13695  
    6565   current-read-table
    6666   current-seconds
     67   define-reader-ctor
    6768   delete-file
    6869   enable-warnings
Note: See TracChangeset for help on using the changeset viewer.