Changeset 34939 in project
- Timestamp:
- 12/17/17 03:49:41 (3 years ago)
- Location:
- release/4/apropos/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/apropos/trunk/apropos.scm
r34897 r34939 139 139 (not obj) 140 140 (eq? #:name obj) 141 (eq? #:mod ule obj)141 (eq? #:mod obj) (eq? #:module obj) 142 142 (eq? #:type obj)) ) 143 143 … … 795 795 ((#:name) 796 796 (cut information-identifier<? <> <> #:name) ) 797 ((#:mod ule)797 ((#:mod #:module) 798 798 (cut information-identifier<? <> <> #:module) ) 799 799 ((#:type) … … 981 981 (let loop ((args iargs) (oargs '())) 982 982 ; 983 (define (restargs next accept?) 984 (cond 985 ((null? next) 986 '() ) 987 (accept? 988 (cdr next) ) 989 (else 990 next ) ) ) 991 ; 983 992 (define (addarg kwd init #!optional accept?) 984 (let ((next (cdr args))) 993 (let* ((next (cdr args) ) 994 (args (restargs next accept?) ) ) 985 995 (cond 986 996 ((null? next) 987 (loop '()(cons* init kwd oargs)) )997 (loop args (cons* init kwd oargs)) ) 988 998 (accept? 989 (loop (cdr next)(cons* (accept? (car next)) kwd oargs)) )999 (loop args (cons* (accept? (car next)) kwd oargs)) ) 990 1000 (else 991 (loop next(cons* init kwd oargs) ) ) ) ) )1001 (loop args (cons* init kwd oargs) ) ) ) ) ) 992 1002 ; 993 1003 (if (null? args) … … 995 1005 (let ((arg (car args))) 996 1006 (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)) ) 997 1017 ; 998 1018 ((mac macros) … … 1026 1046 (unless (null? args) 1027 1047 (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 [#]") ) 1029 1049 1030 1050 ) ;module apropos -
release/4/apropos/trunk/apropos.setup
r34897 r34939 9 9 (exit 1) ) 10 10 11 (setup-shared-extension-module 'apropos (extension-version "2. 5.2")11 (setup-shared-extension-module 'apropos (extension-version "2.6.0") 12 12 #:types? #t 13 13 #:inline? #t
Note: See TracChangeset
for help on using the changeset viewer.