* gds-client.scm (gds-debug-trap): Ensure that frame index passed to Emacs is always...

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index e5f3ead4b8cf2426dad849bfc799300ed7749c76..e4ef1207b1d266f0fb14227dc5dc811f2cc739f4 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2008-04-14  Neil Jerram  <neil@ossau.uklinux.net>
+
+       * gds-client.scm (gds-debug-trap): Ensure that frame index passed
+       to Emacs is always positive.
+
 2008-03-19  Neil Jerram  <neil@ossau.uklinux.net>
 
        * debugging/ice-9-debugger-extensions.scm (command-loop): Use

diff --git a/ice-9/gds-client.scm b/ice-9/gds-client.scm
index 94f8beb09292e2d7728b4f31196fa405f4d031d8..4db4f82666fc03f14b3d55dea0e9fd42f540e3ef 100755 (executable)
--- a/ice-9/gds-client.scm
+++ b/ice-9/gds-client.scm
@@ -71,7 +71,9 @@
                                             (slot-ref (car fired-traps) 'depth)))))
                  ;; Write current stack to the frontend.
                  (write-form (list 'stack
-                                  (or special-index 0)
+                                  (if (and special-index (> special-index 0))
+                                      special-index
+                                      0)
                                    (stack->emacs-readable stack)
                                    (append (flags->emacs-readable flags)
                                            (slot-ref trap-context