diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-12 02:30:47 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1999-09-12 02:30:47 +0000 |
commit | bae971b70c6bfcf2f69cd4c105f4de5bd2bb941c (patch) | |
tree | 6f19bb293a2941c3a8ee31de0401f3288f85c022 | |
parent | 69fafe46927c4c7e911afc665b944e05d66149e6 (diff) | |
download | guile-bae971b70c6bfcf2f69cd4c105f4de5bd2bb941c.tar.gz |
Re-committed this change (got lost in a merge after conflict):
* * boot-9.scm (top-repl): Use (ice-9 debug) (ice-9 debugger) (ice-9
session) (ice-9 threads) (ice-9 regex) from guile-user only if
top-repl is called. This makes startup time for scripts 30% of
what it was before... Removed redundant code for loading of
readline.
-rw-r--r-- | ice-9/boot-9.scm | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index c38ad1e0d..d1bf623e4 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -3045,51 +3045,7 @@ ;;; (define exit-hook (make-hook)) -;;; Load readline code into root module if readline primitives are available. -;;; -;;; Ideally, we wouldn't do this until we were sure we were actually -;;; going to enter the repl, but autoloading individual functions is -;;; clumsy at the moment. -(if (and (memq 'readline *features*) - (isatty? (current-input-port))) - (begin - (define-module (guile) :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.} -;;; -;;; *fixme* This is a temporary solution. -;;; - -(if (memq 'debug-extensions *features*) - (define-module (guile-user) :use-module (ice-9 debug))) - - -;;; {Load session support into user module if present.} -;;; -;;; *fixme* This is a temporary solution. -;;; - -(if (%search-load-path "ice-9/session.scm") - (define-module (guile-user) :use-module (ice-9 session))) - -;;; {Load thread code into user module if threads are present.} -;;; -;;; *fixme* This is a temporary solution. -;;; - -(if (memq 'threads *features*) - (define-module (guile-user) :use-module (ice-9 threads))) - - -;;; {Load regexp code if regexp primitives are available.} - -(if (memq 'regex *features*) - (define-module (guile-user) :use-module (ice-9 regex))) - (define-module (guile)) (append! %load-path (cons "." ())) - |