mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 22:40:25 +02:00
Code Activity

* boot-9.scm: Let the user start in module `(guile-repl)' instead

Browse source 
of module `(guile)'.  Also make sure that `(guile-repl)' uses
suitable modules.  This change improves Guile stability
substantially since bindings will only be copied from the root
module: If the user redefines builtins in `(guile-repl)' it won't
affect the internal operation of Guile itself.
This commit is contained in:
Mikael Djurfeldt 1998-07-14 22:48:00 +00:00
parent 13e341bb4d
commit ae996c08a0
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ice-9/ChangeLog
View file

@ -1,11 +1,11 @@
1998-07-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se> 1998-07-14 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* boot-9.scm: Let the user start in module `(user)' instead of * boot-9.scm: Let the user start in module `(guile-repl)' instead
module `(guile)'. Also make sure that `(user)' uses suitable of module `(guile)'. Also make sure that `(guile-repl)' uses
modules. This change improves Guile stability substantially since suitable modules. This change improves Guile stability
bindings will only be copied from the root module: If the user substantially since bindings will only be copied from the root
redefines builtins in `(user)' it won't affect the internal module: If the user redefines builtins in `(guile-repl)' it won't
operation of Guile itself. affect the internal operation of Guile itself.
1998-06-19 Mikael Djurfeldt <mdj@barbara.nada.kth.se> 1998-06-19 Mikael Djurfeldt <mdj@barbara.nada.kth.se>

14
ice-9/boot-9.scm
View file

@ -2916,7 +2916,7 @@
(isatty? (current-input-port))) (isatty? (current-input-port)))
(begin (begin
(define-module (guile) :use-module (ice-9 readline)) (define-module (guile) :use-module (ice-9 readline))
(define-module (user) :use-module (ice-9 readline)))) (define-module (guile-repl) :use-module (ice-9 readline))))
;;; {Load debug extension code into user module if debug extensions present.} ;;; {Load debug extension code into user module if debug extensions present.}
@ -2925,7 +2925,7 @@
;;; ;;;
(if (memq 'debug-extensions *features*) (if (memq 'debug-extensions *features*)
(define-module (user) :use-module (ice-9 debug))) (define-module (guile-repl) :use-module (ice-9 debug)))
;;; {Load session support into user module if present.} ;;; {Load session support into user module if present.}
@ -2934,7 +2934,7 @@
;;; ;;;
(if (%search-load-path "ice-9/session.scm") (if (%search-load-path "ice-9/session.scm")
(define-module (user) :use-module (ice-9 session))) (define-module (guile-repl) :use-module (ice-9 session)))
;;; {Load thread code into user module if threads are present.} ;;; {Load thread code into user module if threads are present.}
;;; ;;;
@ -2942,7 +2942,7 @@
;;; ;;;
(if (memq 'threads *features*) (if (memq 'threads *features*)
(define-module (user) :use-module (ice-9 threads))) (define-module (guile-repl) :use-module (ice-9 threads)))
;;; {Load emacs interface support if emacs option is given.} ;;; {Load emacs interface support if emacs option is given.}
@ -2955,13 +2955,13 @@
(begin (begin
(if (memq 'debug-extensions *features*) (if (memq 'debug-extensions *features*)
(debug-enable 'backtrace)) (debug-enable 'backtrace))
(define-module (user) :use-module (ice-9 emacs)))) (define-module (guile-repl) :use-module (ice-9 emacs))))
;;; {Load regexp code if regexp primitives are available.} ;;; {Load regexp code if regexp primitives are available.}
(if (memq 'regex *features*) (if (memq 'regex *features*)
(define-module (user) :use-module (ice-9 regex))) (define-module (guile-repl) :use-module (ice-9 regex)))
(define-module (guile)) (define-module (guile))
@ -2992,4 +2992,4 @@
(define-module (user)) (define-module (guile-repl))