mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-29 00:10:21 +02:00
Code Activity

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

Browse source 
argument order for hash-fold.
This commit is contained in:
Mikael Djurfeldt 1999-03-21 05:04:11 +00:00
parent 8cd5191b27
commit 70558403f9
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ice-9/session.scm
View file

@ -89,15 +89,15 @@
(recorded (make-vector 61 '())) (recorded (make-vector 61 '()))
(obarray-names (obarray-names
(lambda (obarray names) (lambda (obarray names)
(hash-fold obarray (hash-fold (lambda (name var vars)
(lambda (name var vars)
(if (and (regexp-exec match name) (if (and (regexp-exec match name)
(not (hashq-get-handle recorded name))) (not (hashq-get-handle recorded name)))
(begin (begin
(hashq-set! recorded name #t) (hashq-set! recorded name #t)
(cons name vars)) (cons name vars))
vars)) vars))
names)))) names
obarray))))
(do ((modules (cons (current-module) (module-uses (current-module))) (do ((modules (cons (current-module) (module-uses (current-module)))
(cdr modules)) (cdr modules))
(names '() (names '()