mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

(debug-trap): Use

Browse source 
`debugger-command-loop' instead of `read-and-dispatch-commands',
which isn't actually available.  Thanks to Carlos Pita for
reporting this.
(debugger-command-loop): Define here for 1.6.x.
This commit is contained in:
Neil Jerram 2006-09-30 17:21:52 +00:00
parent 4f6e301583
commit 63258dc9a1
3 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -59,6 +59,7 @@ For fixes or providing information which led to a fix:
Arno Peters Arno Peters
Ron Peterson Ron Peterson
David Pirotte David Pirotte
Carlos Pita
Ken Raeburn Ken Raeburn
Andreas Rottmann Andreas Rottmann
Kevin Ryde Kevin Ryde

8
ice-9/ChangeLog
View file

@ -1,3 +1,11 @@
2006-09-30 Neil Jerram <neil@ossau.uklinux.net>
* debugging/ice-9-debugger-extensions.scm (debug-trap): Use
`debugger-command-loop' instead of `read-and-dispatch-commands',
which isn't actually available. Thanks to Carlos Pita for
reporting this.
(debugger-command-loop): Define here for 1.6.x.
2006-09-25 Neil Jerram <neil@ossau.uklinux.net> 2006-09-25 Neil Jerram <neil@ossau.uklinux.net>
* debugging/ice-9-debugger-extensions.scm (debugger:step): * debugging/ice-9-debugger-extensions.scm (debugger:step):

7
ice-9/debugging/ice-9-debugger-extensions.scm
View file

@ -121,6 +121,11 @@ print the result obtained."
(define *not-yet-introduced* #t) (define *not-yet-introduced* #t)
(cond ((string>=? (version) "1.7"))
(else
(define (debugger-command-loop state)
(read-and-dispatch-commands state (current-input-port)))))
(define-public (debug-trap trap-context) (define-public (debug-trap trap-context)
"Invoke the Guile debugger to explore the stack at the specified @var{trap}." "Invoke the Guile debugger to explore the stack at the specified @var{trap}."
(start-stack 'debugger (start-stack 'debugger
@ -144,7 +149,7 @@ print the result obtained."
(display "There is 1 frame on the stack.\n\n") (display "There is 1 frame on the stack.\n\n")
(format #t "There are ~A frames on the stack.\n\n" ssize)))) (format #t "There are ~A frames on the stack.\n\n" ssize))))
(write-state-short-with-source-location state) (write-state-short-with-source-location state)
(read-and-dispatch-commands state (current-input-port))))) (debugger-command-loop state))))
(define write-state-short-with-source-location (define write-state-short-with-source-location
(cond ((string>=? (version) "1.7") (cond ((string>=? (version) "1.7")