From 3742da68b2f51bfa78212cdb362461b5d9838f03 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Thu, 13 Mar 2003 10:16:30 +0000 Subject: [PATCH] * session.scm (apropos): Don't look in duplicates interface. --- ice-9/ChangeLog | 4 ++++ ice-9/session.scm | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index f77c5a339..2e53eff19 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,7 @@ +2003-03-13 Mikael Djurfeldt + + * session.scm (apropos): Don't look in duplicates interface. + 2003-03-12 Mikael Djurfeldt * boot-9.scm (duplicate-handlers): Make sure the merge-generics diff --git a/ice-9/session.scm b/ice-9/session.scm index 70dd91e9a..6184d9535 100644 --- a/ice-9/session.scm +++ b/ice-9/session.scm @@ -263,8 +263,13 @@ where OPTIONSET is one of debug, read, eval, print (if (zero? (string-length rgx)) "Empty string not allowed" (let* ((match (make-regexp rgx)) + (uses (module-uses (current-module))) (modules (cons (current-module) - (module-uses (current-module)))) + (if (and (not (null? uses)) + (eq? (module-name (car uses)) + 'duplicates)) + (cdr uses) + uses))) (separator #\tab) (shadow (member 'shadow options)) (value (member 'value options)))