summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/ice-9/boot-9.scm5
1 files changed, 5 insertions, 0 deletions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 5d1fcc4b3..c2ee108f6 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"))
+
;;; {Language primitives}