Changeset 35750 in project


Ignore:
Timestamp:
07/05/18 04:53:39 (2 weeks ago)
Author:
kon
Message:

add keyword->...

Location:
release/4/symbol-utils/trunk
Files:
3 edited

Legend:

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

    r35740 r35750  
    1111
    1212(;export
     13  keyword->symbol
     14  keyword->uninterned-symbol
    1315  symbol->keyword
    1416  symbol-printname-details
     
    1921(import scheme chicken)
    2022(use
     23  (only data-structures o)
    2124  (only symbol-qualified-utils
    2225    exploded-qualified-symbol=? exploded-qualified-symbol<?)
    2326  (only type-checks check-symbol check-list))
     27
     28;;
     29
     30(: keyword->symbol (symbol --> symbol))
     31;
     32(define keyword->symbol (o string->symbol keyword->string))
     33
     34(: keyword->uninterned-symbol (symbol --> symbol))
     35;
     36(define keyword->uninterned-symbol (o string->uninterned-symbol keyword->string))
    2437
    2538;;
  • release/4/symbol-utils/trunk/symbol-utils.setup

    r35740 r35750  
    55(verify-extension-name "symbol-utils")
    66
    7 (setup-shared-extension-module 'symbol-lolevel-utils (extension-version "1.1.0")
     7(setup-shared-extension-module 'symbol-lolevel-utils (extension-version "1.2.0")
    88  #:inline? #t
    99  #:types? #t
    1010  #:compile-options '(-scrutinize -O3 -d1 -no-procedure-checks))
    1111
    12 (setup-shared-extension-module 'symbol-value-utils (extension-version "1.1.0")
     12(setup-shared-extension-module 'symbol-value-utils (extension-version "1.2.0")
    1313  #:inline? #t
    1414  #:types? #t
    1515  #:compile-options '(-scrutinize -O3 -d1 -no-procedure-checks))
    1616
    17 (setup-shared-extension-module 'symbol-qualified-utils (extension-version "1.1.0")
     17(setup-shared-extension-module 'symbol-qualified-utils (extension-version "1.2.0")
    1818  #:inline? #t
    1919  #:types? #t
    2020  #:compile-options '(-scrutinize -O3 -d1 -no-procedure-checks))
    2121
    22 (setup-shared-extension-module 'symbol-name-utils (extension-version "1.1.0")
     22(setup-shared-extension-module 'symbol-name-utils (extension-version "1.2.0")
    2323  #:inline? #t
    2424  #:types? #t
    2525  #:compile-options '(-scrutinize -O3 -d1 -no-procedure-checks))
    2626
    27 (setup-shared-extension-module 'symbol-utils (extension-version "1.1.0")
     27(setup-shared-extension-module 'symbol-utils (extension-version "1.2.0")
    2828  #:inline? #t
    2929  #:types? #t
  • release/4/symbol-utils/trunk/tests/symbol-utils-test.scm

    r35124 r35750  
    44
    55(use symbol-utils)
     6
     7(test 'foo (keyword->symbol #:foo))
     8(test "foo" (symbol->string (keyword->uninterned-symbol #:foo)))
    69
    710(test #:foo (symbol->keyword 'foo))
Note: See TracChangeset for help on using the changeset viewer.