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

interface to the end of the use-list of the root module.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index f906ec9..a7ea234 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -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)