Changeset 35749 in project


Ignore:
Timestamp:
07/05/18 04:41:40 (5 months ago)
Author:
kon
Message:

camel-case, really lovett

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/string-utils/trunk/memoized-string.scm

    r35747 r35749  
    6868  (let ((+global-strings+ (make-hash-table equal?)))
    6969    ;
    70     (define (ensureIndexEntry len ch dat)
     70    (define (ensure-index-entry len ch dat)
    7171      (let ((key `(,len . ,ch)))
    7272        (or
     
    7676            dat ) ) ) )
    7777    ;
    78     (define (ensureStringEntry len ch str)
     78    (define (ensure-string-entry len ch str)
    7979      (let (
    80         (strtbl (ensureIndexEntry len ch (delay (make-hash-table string=? string-hash))) )
     80        (strtbl (ensure-index-entry len ch (delay (make-hash-table string=? string-hash))) )
    8181        (str (force str) ) )
    8282        (or
     
    9191          (len (string-length str) )
    9292          (ch (and (not (fx= 0 len)) (string-ref str 0)) ) )
    93           ;
    9493          (*make-string+ len ch str) ) )
    9594      ((len ch)
     
    9897        (if (fx= 0 len)
    9998          *empty-string*
    100           (ensureStringEntry len ch str) ) ) ) ) )
     99          (ensure-string-entry len ch str) ) ) ) ) )
    101100
    102101;DEPRECATED
    103102
    104 (: memorize-string deprecated)
     103(: memorize-string (deprecated global-string))
    105104(define memorize-string global-string)
    106105
    107 (: make-string* deprecated)
     106(: make-string* (deprecated make-string+))
    108107(define make-string* make-string+)
    109108
Note: See TracChangeset for help on using the changeset viewer.