From cc7f066cd008e7bcf221c00d002a22cdeb775386 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Sat, 8 Mar 1997 02:29:35 +0000 Subject: [PATCH] * boot-9.scm (beautify-user-module!): Don't add the root module interface to the end of the use-list of the root module. --- ice-9/boot-9.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index f906ec914..a7ea234b2 100644 --- 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)