Changeset 13703 in project


Ignore:
Timestamp:
03/12/09 10:39:59 (11 years ago)
Author:
Kon Lovett
Message:

Fix for let & arglst.

File:
1 edited

Legend:

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

    r13688 r13703  
    199199        (else
    200200          (let ((binding (global-ref sym)))
    201             (if (procedure? binding) (apropos-procedure-information proc) )
     201            (if (procedure? binding) (apropos-procedure-information binding) )
    202202                'identifier ) ) ) )
    203203
     
    219219;; Original
    220220
    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)
    223223    (let ((maxsymlen (max-symbol-print-width syms)))
    224224      (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) )
    225225
    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)
    231231    (map (lambda (sym) (list sym (apropos-information sym macenv))) syms) ) )
    232232
     
    256256        (let ((macenv (car macenv+syms))
    257257              (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) ) ) )
    260260      (parse-arguments/environments 'apropos/environments patt envs)) ) )
    261261   
Note: See TracChangeset for help on using the changeset viewer.