turn define-option-interface into a defmacro

[bpt/guile.git] / ice-9 / debugger.scm

diff --git a/ice-9/debugger.scm b/ice-9/debugger.scm
index 3e4250e..0ad0148 100644 (file)
--- a/ice-9/debugger.scm
+++ b/ice-9/debugger.scm
@@ -1,6 +1,6 @@
 ;;;; Guile Debugger
 
-;;; Copyright (C) 1999, 2001, 2002 Free Software Foundation, Inc.
+;;; Copyright (C) 1999, 2001, 2002, 2006 Free Software Foundation, Inc.
 ;;;
 ;; This library is free software; you can redistribute it and/or
 ;; modify it under the terms of the GNU Lesser General Public
@@ -14,14 +14,13 @@
 ;; 
 ;; You should have received a copy of the GNU Lesser General Public
 ;; License along with this library; if not, write to the Free Software
-;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
 
 (define-module (ice-9 debugger)
   #:use-module (ice-9 debugger command-loop)
   #:use-module (ice-9 debugger state)
   #:use-module (ice-9 debugger utils)
   #:use-module (ice-9 format)
-  #:use-module (emacs gds-client)
   #:export (debug-stack
            debug
            debug-last-error
@@ -59,33 +58,7 @@
 ;;; any other that implements the `debugger-command-loop-*' interface
 ;;; simply by changing the relevant #:use-module line above.
 ;;;
-;;; The following new parts add breakpoint support:
-;;;
-;;; (... behaviour) - codification of the things that can happen when
-;;;                   a breakpoint is hit, regardless of the type of
-;;;                   the breakpoint
-;;;
-;;; (... breakpoints) - management of breakpoints in general
-;;;
-;;; (... breakpoints procedural) - breakpoints that trigger upon
-;;;                                application of a specified
-;;;                                procedure
-;;;
-;;; (... breakpoints source) - breakpoints that trigger upon
-;;;                            evaluation of a specific source
-;;;                            expression
-;;;
-;;; (... trap-hooks) - a (slightly) higher-level abstraction of
-;;;                    Guile's evaluator traps interface
-;;;
-;;; (... trc) - generic tracing interface for debugging tricky code
-;;;             using the `printf' method :-)
-;;;
-;;; Note that (... breakpoints range) doesn't work yet.  If loaded, it
-;;; seems to cause some kind of explosion in the GOOPS method cache
-;;; calculation code.
-;;;
-;;; - Neil Jerram <neil@ossau.uklinux.net> 2002-10-26
+;;; - Neil Jerram <neil@ossau.uklinux.net> 2002-10-26, updated 2005-07-09
 
 (define *not-yet-introduced* #t)
 
@@ -121,9 +94,7 @@ Indicates that the debugger should display an introductory message.
                        (display "There is 1 frame on the stack.\n\n")
                        (format #t "There are ~A frames on the stack.\n\n" ssize))))
              (write-state-short state)
-             (if (gds-connected?)
-                 (gds-command-loop state)
-                 (debugger-command-loop state)))))))))
+             (debugger-command-loop state))))))))
 
 (define (debug)
   "Invoke the Guile debugger to explore the context of the last error."