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

* boot-9.scm: Renamed module (guile-repl)' --> (guile-user)'.

Browse source
This commit is contained in:
Mikael Djurfeldt 1998-07-15 19:32:13 +00:00
parent ae996c08a0
commit 39bc994824
2 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -1,3 +1,7 @@
1998-07-15 Mikael Djurfeldt <mdj@barbara.nada.kth.se>
* boot-9.scm: Renamed module `(guile-repl)' --> `(guile-user)'.
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 `(guile-repl)' instead * boot-9.scm: Let the user start in module `(guile-repl)' instead

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 (guile-repl) :use-module (ice-9 readline)))) (define-module (guile-user) :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 (guile-repl) :use-module (ice-9 debug))) (define-module (guile-user) :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 (guile-repl) :use-module (ice-9 session))) (define-module (guile-user) :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 (guile-repl) :use-module (ice-9 threads))) (define-module (guile-user) :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 (guile-repl) :use-module (ice-9 emacs)))) (define-module (guile-user) :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 (guile-repl) :use-module (ice-9 regex))) (define-module (guile-user) :use-module (ice-9 regex)))
(define-module (guile)) (define-module (guile))
@ -2992,4 +2992,4 @@
(define-module (guile-repl)) (define-module (guile-user))