mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

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

Browse source
This commit is contained in:
Neil Jerram 2008-04-14 19:40:02 +01:00
parent 904fabb602
commit b1860cb342
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -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> 2008-03-19 Neil Jerram <neil@ossau.uklinux.net>
* debugging/ice-9-debugger-extensions.scm (command-loop): Use * debugging/ice-9-debugger-extensions.scm (command-loop): Use

4
ice-9/gds-client.scm
View file

@ -73,7 +73,9 @@
(slot-ref (car fired-traps) 'depth))))) (slot-ref (car fired-traps) 'depth)))))
;; Write current stack to the frontend. ;; Write current stack to the frontend.
(write-form (list 'stack (write-form (list 'stack
(or special-index 0) (if (and special-index (> special-index 0))
special-index
0)
(stack->emacs-readable stack) (stack->emacs-readable stack)
(append (flags->emacs-readable flags) (append (flags->emacs-readable flags)
(slot-ref trap-context (slot-ref trap-context