(command-loop): Use

needed modules.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index a27510b..e96d7d3 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2008-03-19  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * debugging/ice-9-debugger-extensions.scm (command-loop): Use
+       needed modules.
+
 2008-02-22  Ludovic Courtès  <ludo@gnu.org>
 
        * match.scm: Export `match:andmap'.  This fixes evaluation of

diff --git a/ice-9/debugging/ice-9-debugger-extensions.scm b/ice-9/debugging/ice-9-debugger-extensions.scm
index 2770c1f..a8b8c97 100644 (file)
--- a/ice-9/debugging/ice-9-debugger-extensions.scm
+++ b/ice-9/debugging/ice-9-debugger-extensions.scm
@@ -28,7 +28,10 @@
 
 (cond ((string>=? (version) "1.7")
        (use-modules (ice-9 debugger command-loop))
-       (define-module (ice-9 debugger command-loop))
+       (define-module (ice-9 debugger command-loop)
+        #:use-module (ice-9 debugger)
+        #:use-module (ice-9 debugger state)
+        #:use-module (ice-9 debugging traps))
        (define new-define-command define-command)
        (set! define-command
             (lambda (name argument-template documentation procedure)