diff options
| author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-21 05:04:11 +0000 |
|---|---|---|
| committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-03-21 05:04:11 +0000 |
| commit | 70558403f905b5ce08b445b0f71936365f5010cc (patch) | |
| tree | 88433d1993b4287716d93c90e35af70d565d8f92 | |
| parent | 8cd5191b27a5b141978d4a73693fb62ff8dada38 (diff) | |
| download | guile-70558403f905b5ce08b445b0f71936365f5010cc.tar.gz | |
* session.scm (apropos-internal): Modified to comply with new
argument order for hash-fold.
| -rw-r--r-- | ice-9/session.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ice-9/session.scm b/ice-9/session.scm index 96f8268c0..6d8e58b5a 100644 --- 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 '() |