mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-03 10:40:21 +02:00
* session.scm (apropos): Don't look in duplicates interface.
This commit is contained in:
parent
65bed4aa84
commit
3742da68b2
2 changed files with 10 additions and 1 deletions
|
@ -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>
|
||||
|
||||
* boot-9.scm (duplicate-handlers): Make sure the merge-generics
|
||||
|
|
|
@ -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)))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue