Changeset 34939 in project


Ignore:
Timestamp:
12/17/17 03:49:41 (6 months ago)
Author:
kon
Message:

add egg

Location:
release/4/apropos/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/apropos/trunk/apropos.scm

    r34897 r34939  
    139139    (not obj)
    140140    (eq? #:name obj)
    141     (eq? #:module obj)
     141    (eq? #:mod obj) (eq? #:module obj)
    142142    (eq? #:type obj)) )
    143143
     
    795795        ((#:name)
    796796          (cut information-identifier<? <> <> #:name) )
    797         ((#:module)
     797        ((#:mod #:module)
    798798          (cut information-identifier<? <> <> #:module) )
    799799        ((#:type)
     
    981981  (let loop ((args iargs) (oargs '()))
    982982    ;
     983    (define (restargs next accept?)
     984      (cond
     985        ((null? next)
     986          '() )
     987        (accept?
     988          (cdr next) )
     989        (else
     990          next ) ) )
     991    ;
    983992    (define (addarg kwd init #!optional accept?)
    984       (let ((next (cdr args)))
     993      (let* ((next (cdr args) )
     994             (args (restargs next accept?) ) )
    985995        (cond
    986996          ((null? next)
    987             (loop '() (cons* init kwd oargs)) )
     997            (loop args (cons* init kwd oargs)) )
    988998          (accept?
    989             (loop (cdr next) (cons* (accept? (car next)) kwd oargs)) )
     999            (loop args (cons* (accept? (car next)) kwd oargs)) )
    9901000          (else
    991             (loop next (cons* init kwd oargs) ) ) ) ) )
     1001            (loop args (cons* init kwd oargs) ) ) ) ) )
    9921002    ;
    9931003    (if (null? args)
     
    9951005      (let ((arg (car args)))
    9961006        (case arg
     1007          ;
     1008          ((krl)
     1009            (loop
     1010              (restargs (cdr args) #f)
     1011              (cons* #:module #:sort #t #:case-insensitive? #t #:qualified? #t #:macros? oargs)) )
     1012          ;
     1013          ((all)
     1014            (loop
     1015              (restargs (cdr args) #f)
     1016              (cons* #t #:case-insensitive? #t #:qualified? #t #:macros? oargs)) )
    9971017          ;
    9981018          ((mac macros)
     
    10261046        (unless (null? args)
    10271047          (apply apropos args) ) ) )
    1028     ",a PATT ARG...    Apropos of PATT with ARG from mac[ros], qual[ified], sort [name|module|type|#f], ci|case-insensitve, base [#]") )
     1048    ",a PATT ARG...    Apropos of PATT with ARG from mac[ros], qual[ified], ci|c13e, all, sort [name|mod[ule]|type|#f], base [#]") )
    10291049
    10301050) ;module apropos
  • release/4/apropos/trunk/apropos.setup

    r34897 r34939  
    99  (exit 1) )
    1010
    11 (setup-shared-extension-module 'apropos (extension-version "2.5.2")
     11(setup-shared-extension-module 'apropos (extension-version "2.6.0")
    1212  #:types? #t
    1313  #:inline? #t
Note: See TracChangeset for help on using the changeset viewer.