[Guile-commits] 07/11: Prevent (@ (ice-9 boot-9) x)

[Andy Wingo]

wingo pushed a commit to branch stable-2.0
in repository guile.

commit ef2943e8062539f32ae4a2c0eea9c83b663f4814
Author: Andy Wingo <address@hidden>
Date:   Fri Jun 24 17:22:17 2016 +0200

    Prevent (@ (ice-9 boot-9) x)
    
    * module/ice-9/boot-9.scm: Prevent re-loading, perhaps via (@ (ice-9
      boot-9) foo).  (ice-9 boot-9) isn't a module.  Fixes #21801.
---
 module/ice-9/boot-9.scm |    5 +++++
 1 file changed, 5 insertions(+)

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 872594b..81a826a 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -39,6 +39,11 @@
 (eval-when (compile)
   (set-current-module (resolve-module '(guile))))
 
+;; Prevent this file being loaded more than once in a session.  Just
+;; doesn't make sense!
+(if (current-module)
+    (error "re-loading ice-9/boot-9.scm not allowed"))
+
 
 
 ;;; {Error handling}