Changeset 13743 in project for chicken


Ignore:
Timestamp:
03/14/09 04:49:03 (11 years ago)
Author:
Kon Lovett
Message:

Fixed use of non-% routines. Made proc arg names > 1 char.

File:
1 edited

Legend:

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

    r13727 r13743  
    361361; generic-byteblock isa bytevector, string, flonum, or lambda-info
    362362(define-inline (%generic-byteblock? x)
    363   (or (bytevector? x) (string? x) (flonum? x) (lambda-info? x)) )
     363  (or (%bytevector? x) (%string? x) (%flonum? x) (%lambda-info? x)) )
    364364
    365365;; Bytevector (byteblock)
     
    834834    (%closure-set! tc i (%closure-ref fc i)) ) )
    835835
    836 (define-inline (%closure-decoration c t)
     836(define-inline (%closure-decoration c test)
    837837  (let find-decor ((i (%fxsub1 (%closure-length c))))
    838838    (and (%fxpositive? i)
    839839         (let ((x (%closure-ref c i)))
    840            (if (t x) x
     840           (if (test x) x
    841841               (find-decor (%fxsub1 i)) ) ) ) ) )
    842842
    843 (define-inline (%closure-decorate! c t d)
     843(define-inline (%closure-decorate! c test dcor)
    844844  (let ((l (%closure-length c)))
    845845    (let find-decor ((i (%fxsub l)))
     
    848848               (%closure-copy nc c l)
    849849               (##core#inline "C_copy_pointer" c nc)
    850                (d nc i) ) )
     850               (dcor nc i) ) )
    851851            (else
    852852             (let ((x (%closure-ref c i)))
    853                (if (t x) (d c i)
     853               (if (test x) (dcor c i)
    854854                   (find-decor (%fxsub i)) ) ) ) ) ) ) )
    855855
     
    870870  (let ((str (%symbol-string s)))
    871871    (and (%fxpositive? (%string-size str))
    872          (fx<= (%byteblock-ref str 0) NAMESPACE-MAX-ID-LEN) ) ) )
     872         (%fx<= (%byteblock-ref str 0) NAMESPACE-MAX-ID-LEN) ) ) )
    873873
    874874;Safe
Note: See TracChangeset for help on using the changeset viewer.