Changeset 13703 in project
- Timestamp:
- 03/12/09 10:39:59 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/apropos/trunk/apropos.scm
r13688 r13703 199 199 (else 200 200 (let ((binding (global-ref sym))) 201 (if (procedure? binding) (apropos-procedure-information proc) )201 (if (procedure? binding) (apropos-procedure-information binding) ) 202 202 'identifier ) ) ) ) 203 203 … … 219 219 ;; Original 220 220 221 (define (apropos patt . rest)222 (receive (macenv syms) (parse-arguments 'apropos args)221 (define (apropos patt . args) 222 (receive (macenv syms) (parse-arguments 'apropos patt args) 223 223 (let ((maxsymlen (max-symbol-print-width syms))) 224 224 (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) ) 225 225 226 (define (apropos-list patt . rest)227 (receive (macenv syms) (parse-arguments 'apropos-list args) syms) )228 229 (define (apropos-information-list patt . rest)230 (receive (macenv syms) (parse-arguments 'apropos-information-list args)226 (define (apropos-list patt . args) 227 (receive (macenv syms) (parse-arguments 'apropos-list patt args) syms) ) 228 229 (define (apropos-information-list patt . args) 230 (receive (macenv syms) (parse-arguments 'apropos-information-list patt args) 231 231 (map (lambda (sym) (list sym (apropos-information sym macenv))) syms) ) ) 232 232 … … 256 256 (let ((macenv (car macenv+syms)) 257 257 (syms (cdr macenv+syms))) 258 (let ((maxsymlen (max-symbol-print-width syms)) 259 (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) ) )258 (let ((maxsymlen (max-symbol-print-width syms))) 259 (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) ) 260 260 (parse-arguments/environments 'apropos/environments patt envs)) ) ) 261 261
Note: See TracChangeset
for help on using the changeset viewer.