[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 07/11: Prevent (@ (ice-9 boot-9) x)
From: |
Andy Wingo |
Subject: |
[Guile-commits] 07/11: Prevent (@ (ice-9 boot-9) x) |
Date: |
Sun, 26 Jun 2016 20:58:18 +0000 (UTC) |
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}
- [Guile-commits] branch stable-2.0 updated (ea352d9 -> 8110246), Andy Wingo, 2016/06/26
- [Guile-commits] 01/11: Fix R6RS fold-left documentation, Andy Wingo, 2016/06/26
- [Guile-commits] 04/11: Fix typo about `keywords' read option, Andy Wingo, 2016/06/26
- [Guile-commits] 08/11: Constant-folding eq? and eqv? uses deduplication, Andy Wingo, 2016/06/26
- [Guile-commits] 02/11: Clarify use of the term "scanning" in the manual, Andy Wingo, 2016/06/26
- [Guile-commits] 09/11: Check for strtod_l before using it., Andy Wingo, 2016/06/26
- [Guile-commits] 10/11: Favor "escape continuation" over "one-shot continuation" in manual, Andy Wingo, 2016/06/26
- [Guile-commits] 07/11: Prevent (@ (ice-9 boot-9) x),
Andy Wingo <=
- [Guile-commits] 03/11: Fix ,profile in pure modules, Andy Wingo, 2016/06/26
- [Guile-commits] 06/11: Fix texinfo->html for @acronym, @itemize, Andy Wingo, 2016/06/26
- [Guile-commits] 05/11: Avoid stifling readline history when looking up options, Andy Wingo, 2016/06/26
- [Guile-commits] 11/11: Add documentation pointer from getopt-long to SRFI-37., Andy Wingo, 2016/06/26