mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 21:40:33 +02:00
Code Activity

Prevent (@ (ice-9 boot-9) x)

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2016-06-24 17:22:17 +02:00
parent 9687334ff5
commit ff5cafc77d
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/ice-9/boot-9.scm
View file

@ -39,6 +39,11 @@
(eval-when (compile) (eval-when (compile)
(set-current-module (resolve-module '(guile)))) (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} ;;; {Language primitives}