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

* boot-9.scm (beautify-user-module!): Don't add the root module

Browse source 
interface to the end of the use-list of the root module.
This commit is contained in:
Mikael Djurfeldt 1997-03-08 02:29:35 +00:00
parent a1e2cfe360
commit cc7f066cd0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/boot-9.scm
View file

@ -1667,7 +1667,8 @@
(set-module-name! interface (module-name module))
(set-module-kind! interface 'interface)
(set-module-public-interface! module interface)))
(if (not (memq the-scm-module (module-uses module)))
(if (and (not (memq the-scm-module (module-uses module)))
(not (eq? module the-root-module)))
(set-module-uses! module (append (module-uses module) (list the-scm-module)))))
(define (make-modules-in module name)