Changeset 37121 in project


Ignore:
Timestamp:
01/22/19 01:05:58 (3 months ago)
Author:
kon
Message:

rm unused

Location:
release/5/symbol-utils/trunk
Files:
1 deleted
3 edited

Legend:

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

    r37043 r37121  
    6767;
    6868(define (*symbol-printname-details sym)
    69   (values (symbol->string sym) "")
    70 #;
    71   (let ((p (##sys#qualified-symbol-prefix sym)))
    72     (values
    73       (symbol->string sym)
    74       (cond
    75         ((not p)                      "" )
    76         ((eq? #\x0 (string-ref p 0))  ":")
    77         (else                         (substring p 1) ) ) ) ) )
     69  (values (symbol->string sym) (if (keyword? sym) ":" "")) )
    7870
    7971(: symbol-printname-details (symbol --> string string))
  • release/5/symbol-utils/trunk/symbol-utils.egg

    r37043 r37121  
    33
    44((synopsis "symbol-utils")
    5  (version "2.0.1")
     5 (version "2.0.2")
    66 (category data)
    77 (author "[[kon lovett]]")
     
    1414    #;(inline-file)
    1515    (types-file)
    16     (csc-options "-O3" "-d1" "-no-procedure-checks") )
    17   #;
    18   (extension symbol-qualified-utils
    19     #;(inline-file)
    20     (types-file)
    21     (csc-options "-O3" "-d1" "-no-procedure-checks") )
     16    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks") )
    2217  (extension symbol-name-utils
    2318    #;(inline-file)
    2419    (types-file)
    25     #;(component-dependencies symbol-qualified-utils)
    26     (csc-options "-O3" "-d1" "-no-procedure-checks") )
     20    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks") )
    2721  (extension symbol-value-utils
    2822    #;(inline-file)
    2923    (types-file)
    30     (csc-options "-O3" "-d1" "-no-procedure-checks") )
     24    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks") )
    3125  (extension symbol-utils
    3226    #;(inline-file)
    3327    (types-file)
    34     (component-dependencies
    35       symbol-lolevel-utils #;symbol-qualified-utils symbol-name-utils symbol-value-utils)
    36     (csc-options "-O3" "-d1" "-no-procedure-checks") ) ) )
     28    (component-dependencies symbol-lolevel-utils symbol-name-utils symbol-value-utils)
     29    (csc-options "-O3" "-d1" "-local" "-no-procedure-checks") ) ) )
  • release/5/symbol-utils/trunk/symbol-utils.scm

    r37043 r37121  
    77
    88(import scheme (chicken module))
    9 (import
    10   symbol-name-utils symbol-value-utils #;symbol-qualified-utils symbol-lolevel-utils)
     9(import symbol-name-utils symbol-value-utils symbol-lolevel-utils)
    1110
    12 (reexport
    13   symbol-name-utils symbol-value-utils #;symbol-qualified-utils symbol-lolevel-utils)
     11(reexport symbol-name-utils symbol-value-utils symbol-lolevel-utils)
    1412
    1513) ;module symbol-utils
Note: See TracChangeset for help on using the changeset viewer.