From f54b1b5d3c50fbf209308e34f566dbe7f4433510 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Mon, 14 Apr 2008 19:40:02 +0100 Subject: [PATCH] * gds-client.scm (gds-debug-trap): Ensure that frame index passed to Emacs is always positive. --- ice-9/ChangeLog | 5 +++++ ice-9/gds-client.scm | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index e5f3ead4b..e4ef1207b 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,8 @@ +2008-04-14 Neil Jerram + + * gds-client.scm (gds-debug-trap): Ensure that frame index passed + to Emacs is always positive. + 2008-03-19 Neil Jerram * debugging/ice-9-debugger-extensions.scm (command-loop): Use diff --git a/ice-9/gds-client.scm b/ice-9/gds-client.scm index 94f8beb09..4db4f8266 100755 --- 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