mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 11:40:20 +02:00
Code Activity

* session.scm (apropos): Don't look in duplicates interface.

Browse source
This commit is contained in:
Mikael Djurfeldt 2003-03-13 10:16:30 +00:00
parent 65bed4aa84
commit 3742da68b2
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
2003-03-13 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* session.scm (apropos): Don't look in duplicates interface.
2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se> 2003-03-12 Mikael Djurfeldt <djurfeldt@nada.kth.se>
* boot-9.scm (duplicate-handlers): Make sure the merge-generics * boot-9.scm (duplicate-handlers): Make sure the merge-generics

7
ice-9/session.scm
View file

@ -263,8 +263,13 @@ where OPTIONSET is one of debug, read, eval, print
(if (zero? (string-length rgx)) (if (zero? (string-length rgx))
"Empty string not allowed" "Empty string not allowed"
(let* ((match (make-regexp rgx)) (let* ((match (make-regexp rgx))
(uses (module-uses (current-module)))
(modules (cons (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) (separator #\tab)
(shadow (member 'shadow options)) (shadow (member 'shadow options))
(value (member 'value options))) (value (member 'value options)))