Changeset 13753 in project


Ignore:
Timestamp:
03/14/09 08:20:47 (11 years ago)
Author:
Kon Lovett
Message:

Rmvd any ref to prim inlines. (After testing to make sure it works w/ them. However, cannot really benefit since probably only used at or near the toplevel. And usually interactively at that.)

Location:
release/4/apropos
Files:
2 deleted
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/tags/1.0.0/apropos.meta

    r13730 r13753  
    99 (needs setup-helper)
    1010 (files
    11   "chicken-primitive-object-inlines.scm"
    1211  "tests"
    1312  "apropos.scm"
  • release/4/apropos/trunk/apropos.meta

    r13729 r13753  
    99 (needs setup-helper)
    1010 (files
    11   "chicken-primitive-object-inlines.scm"
    1211  "tests"
    1312  "apropos.scm"
  • release/4/apropos/trunk/apropos.scm

    r13748 r13753  
    3838;;
    3939
    40 (cond-expand
    41   (unsafe
    42     (include "chicken-primitive-object-inlines") )
    43   (else ) )
    44 
    4540;; Argument Checking
    4641
    4742(define-inline (%check-search-pattern loc obj argnam)
    48   (cond-expand
    49     (unsafe
    50       (unless (or (%keyword? obj) (%symbol? obj) (%string? obj) (regexp? obj))
    51         (error-invalid-search loc obj argnam) ) )
    52     (else
    53       (unless (or (keyword? obj) (symbol? obj) (string? obj) (regexp? obj))
    54         (error-invalid-search loc obj argnam) ) ) ) )
     43  (unless (or (keyword? obj) (symbol? obj) (string? obj) (regexp? obj))
     44    (error-invalid-search loc obj argnam) ) )
    5545
    5646#; ;UNUSED
     
    111101
    112102(define (symbol=? x y)
    113   (cond-expand
    114     (unsafe
    115       (%string=? (%symbol-string x) (%symbol-string y)) )
    116     (else
    117       (let ((sx (##sys#symbol->string x))
    118             (sy (##sys#symbol->string y))
    119             (px (##sys#qualified-symbol-prefix x))
    120             (py (##sys#qualified-symbol-prefix y)))
    121         (cond (px (and py (string=? px py) (string=? sx sy)))
    122               (py (or (not px) (and (string=? px py) (string=? sx sy))))
    123               (else (string=? sx sy) ) ) ) ) ) )
     103  (let ((sx (##sys#symbol->string x))
     104        (sy (##sys#symbol->string y))
     105        (px (##sys#qualified-symbol-prefix x))
     106        (py (##sys#qualified-symbol-prefix y)))
     107    (cond (px (and py (string=? px py) (string=? sx sy)))
     108          (py (or (not px) (and (string=? px py) (string=? sx sy))))
     109          (else (string=? sx sy) ) ) ) )
    124110
    125111(define (symbol<? x y)
    126   (cond-expand
    127     (unsafe
    128       (%string<? (%symbol-string x) (%symbol-string y)) )
    129     (else
    130       (let ((sx (##sys#symbol->string x))
    131             (sy (##sys#symbol->string y))
    132             (px (##sys#qualified-symbol-prefix x))
    133             (py (##sys#qualified-symbol-prefix y)))
    134         (cond (px (and py (string<? px py) (string<? sx sy)))
    135               (py (or (not px) (and (string<? px py) (string<? sx sy))))
    136               (else (string<? sx sy) ) ) ) ) ) )
     112  (let ((sx (##sys#symbol->string x))
     113        (sy (##sys#symbol->string y))
     114        (px (##sys#qualified-symbol-prefix x))
     115        (py (##sys#qualified-symbol-prefix y)))
     116    (cond (px (and py (string<? px py) (string<? sx sy)))
     117          (py (or (not px) (and (string<? px py) (string<? sx sy))))
     118          (else (string<? sx sy) ) ) ) )
    137119
    138120(define (symbol-print-length sym)
    139   (cond-expand
    140     (unsafe
    141       (let ((siz (%string-size (%symbol-string sym))))
    142               ; assumes keyword style is not #:none
    143         (cond ((%keyword? sym) siz)
    144               ; compensate for the '##'
    145               ((%qualified-symbol? sym) (%fx+ siz 2))
    146               ; plain old string
    147               (else siz) ) ) )
    148     (else
    149       (let ([len (string-length (##sys#symbol->qualified-string sym))])
    150         (if (keyword? sym) (- len 2) ; compensate for leading '###' when only a ':' is printed
    151             len ) ) ) ) )
     121  (let ([len (string-length (##sys#symbol->qualified-string sym))])
     122    (if (keyword? sym) (- len 2) ; compensate for leading '###' when only a ':' is printed
     123        len ) ) )
    152124
    153125(define (max-symbol-print-width syms)
     
    157129
    158130(define (symbol-match? sym regexp)
    159   (cond-expand
    160     (unsafe
    161       (string-search regexp (%symbol-string sym)) )
    162     (else
    163       (string-search regexp (symbol->string sym)) ) ) )
     131  (string-search regexp (symbol->string sym)) )
    164132
    165133;; Environment Search
Note: See TracChangeset for help on using the changeset viewer.