Changeset 13703 in project

Timestamp:

03/12/09 10:39:59 (11 years ago)

Author:

Kon Lovett

Message:

Fix for let & arglst.

File:

• release/4/apropos/trunk/apropos.scm (modified) (3 diffs)

release/4/apropos/trunk/apropos.scm

@@ -199 +199 @@
         (else
           (let ((binding (global-ref sym)))
-            (if (procedure? binding) (apropos-procedure-information proc) )
+            (if (procedure? binding) (apropos-procedure-information binding) )
                 'identifier ) ) ) )
 
@@ -219 +219 @@
 ;; Original
 
-(define (apropos patt . rest)
-  (receive (macenv syms) (parse-arguments 'apropos args)
+(define (apropos patt . args)
+  (receive (macenv syms) (parse-arguments 'apropos patt args)
     (let ((maxsymlen (max-symbol-print-width syms)))
       (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) )
 
-(define (apropos-list patt . rest)
-  (receive (macenv syms) (parse-arguments 'apropos-list args) syms) )
-
-(define (apropos-information-list patt . rest)
-  (receive (macenv syms) (parse-arguments 'apropos-information-list args)
+(define (apropos-list patt . args)
+  (receive (macenv syms) (parse-arguments 'apropos-list patt args) syms) )
+
+(define (apropos-information-list patt . args)
+  (receive (macenv syms) (parse-arguments 'apropos-information-list patt args)
     (map (lambda (sym) (list sym (apropos-information sym macenv))) syms) ) )
 
@@ -256 +256 @@
         (let ((macenv (car macenv+syms))
               (syms (cdr macenv+syms)))
-          (let ((maxsymlen (max-symbol-print-width syms))
-            (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) ) )
+          (let ((maxsymlen (max-symbol-print-width syms)))
+            (for-each (cut display-symbol-information <> maxsymlen macenv) syms) ) ) )
       (parse-arguments/environments 'apropos/environments patt envs)) ) )