* session.scm (apropos-internal): Modified to comply with new

argument order for hash-fold.

diff --git a/ice-9/session.scm b/ice-9/session.scm
index 96f8268..6d8e58b 100644 (file)
--- a/ice-9/session.scm
+++ b/ice-9/session.scm
@@ -89,15 +89,15 @@
           (recorded (make-vector 61 '()))
           (obarray-names
            (lambda (obarray names)
-             (hash-fold obarray
-                        (lambda (name var vars)
+             (hash-fold (lambda (name var vars)
                           (if (and (regexp-exec match name)
                                    (not (hashq-get-handle recorded name)))
                               (begin
                                 (hashq-set! recorded name #t)
                                 (cons name vars))
                               vars))
-                        names))))
+                        names
+                        obarray))))
     (do ((modules (cons (current-module) (module-uses (current-module)))
                  (cdr modules))
         (names '()