summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-12 02:30:47 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1999-09-12 02:30:47 +0000
commitbae971b70c6bfcf2f69cd4c105f4de5bd2bb941c (patch)
tree6f19bb293a2941c3a8ee31de0401f3288f85c022
parent69fafe46927c4c7e911afc665b944e05d66149e6 (diff)
downloadguile-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.scm44
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 "." ()))
-