Changeset 35245 in project


Ignore:
Timestamp:
03/04/18 22:20:18 (4 months ago)
Author:
kon
Message:

canonical

File:
1 edited

Legend:

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

    r35128 r35245  
    9494
    9595(: symbol->keyword (symbol --> symbol))
     96;
    9697(define (symbol->keyword sym)
    9798  (if (keyword? sym)
     
    102103
    103104(: *symbol-printname-details (symbol --> string string))
     105;
    104106(define (*symbol-printname-details sym)
    105107  (let ((p (##sys#qualified-symbol-prefix sym)) )
     
    112114
    113115(: symbol-printname-details (symbol --> string string))
     116;
    114117(define (symbol-printname-details sym)
    115118  (let-values (
     
    121124
    122125(: qualified=? (string string string string --> boolean))
     126;
    123127(define (qualified=? px sx py sy)
    124128  (and (string=? px py) (string=? sx sy)) )
    125129
    126130(: qualified<? (string string string string --> boolean))
     131;
    127132(define (qualified<? px sx py sy)
    128133  (or
     
    131136
    132137(: symbol-printname=? (symbol symbol --> boolean))
     138;
    133139(define (symbol-printname=? x y)
    134140  (let-values (
     
    138144
    139145(: symbol-printname<? (symbol symbol --> boolean))
     146;
    140147(define (symbol-printname<? x y)
    141148  (let-values (
     
    157164
    158165(: symbol-printname-length (symbol --> fixnum))
     166;
    159167(define (symbol-printname-length sym)
    160168  (let (
     
    168176
    169177(: max-symbol-printname-length ((list-of symbol) --> fixnum))
     178;
    170179(define (max-symbol-printname-length syms)
    171180  (if (null? (check-list 'max-symbol-printname-length syms))
     
    186195
    187196(: make-qualified-string (symbol * * --> string))
     197;
    188198(define (make-qualified-string loc prefix name)
    189199  (let* (
     
    202212
    203213(: make-qualified-symbol (* * --> symbol))
     214;
    204215(define (make-qualified-symbol prefix name)
    205216  (##sys#intern-symbol
     
    207218
    208219(: make-qualified-uninterned-symbol (* * --> symbol))
     220;
    209221(define (make-qualified-uninterned-symbol prefix name)
    210222  (##sys#make-symbol
     
    212224
    213225(: qualified-symbol? (* -> boolean : symbol))
     226;
    214227(define (qualified-symbol? sym)
    215228  (and
     
    218231
    219232(: symbol->qualified-string (symbol --> string))
     233;
    220234(define (symbol->qualified-string sym)
    221235  (##sys#symbol->qualified-string (check-symbol 'symbol->qualified-string sym)) )
    222236
    223237(: interned-symbol? (symbol --> boolean))
     238;
    224239(define (interned-symbol? sym)
    225240  (##sys#interned-symbol? (check-symbol 'interned-symbol? sym)) )
Note: See TracChangeset for help on using the changeset viewer.