Changeset 35210 in project


Ignore:
Timestamp:
02/25/18 07:23:08 (10 months ago)
Author:
kon
Message:

include the keywords in the keyword list

Location:
release/4/dsssl-utils/trunk
Files:
2 edited

Legend:

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

    r35204 r35210  
    136136(: ensure-keyword-list ((list-of symbol) --> (list-of symbol)))
    137137;
    138 (define (ensure-keyword-list kwds)
     138(define (ensure-keyword-list syms)
    139139  (foldl
    140140    (lambda (a x)
    141       (if (and (symbol? x) (not (keyword? x)))
    142         (cons (symbol->keyword x) a)
    143         a ) )
     141      (let (
     142        (kwd
     143          (if (and (symbol? x) (not (keyword? x)))
     144            (symbol->keyword x)
     145            x ) ) )
     146        (cons kwd a) ) )
    144147    '()
    145     kwds) )
     148    syms) )
    146149
    147150(: delete-keyword-arguments ((list-of symbol) list --> list))
  • release/4/dsssl-utils/trunk/dsssl-utils.setup

    r35204 r35210  
    55(verify-extension-name "dsssl-utils")
    66
    7 (setup-shared-extension-module 'typed-define (extension-version "2.2.1")
     7(setup-shared-extension-module 'typed-define (extension-version "2.2.2")
    88  #:inline? #t
    99  #:types? #t
     
    1414    -no-procedure-checks -no-bound-checks -no-argc-checks))
    1515
    16 (setup-shared-extension-module 'dsssl-utils (extension-version "2.2.1")
     16(setup-shared-extension-module 'dsssl-utils (extension-version "2.2.2")
    1717  #:inline? #t
    1818  #:types? #t
     
    2323    -no-procedure-checks -no-bound-checks))
    2424
    25 (setup-shared-extension-module 'lambda+ (extension-version "2.2.1")
     25(setup-shared-extension-module 'lambda+ (extension-version "2.2.2")
    2626  #:inline? #t
    2727  #:types? #t
Note: See TracChangeset for help on using the changeset viewer.