suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a couple of checks for empty stack

Browse Source 
svn: r9509
This commit is contained in:
Greg Cooper 2008-04-28 04:06:22 +00:00
parent 632f4df567
commit aface374af
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/gui-debugger/debug-tool.ss
View File

@ -894,6 +894,7 @@
(define (can-step-over? frames status)
(and (or (not (zero? (get-frame-num))) (eq? status 'entry-break))
(not (empty? frames))
(not (eq? (frame->end-breakpoint-status (list-ref frames (get-frame-num))) 'invalid))))
(define (can-step-out? frames status)
@ -922,7 +923,9 @@
(send (send (get-frame) get-step-out-button) enable (can-step-out? frames status))
(send (send (get-frame) get-resume-button) enable #t)
(send (get-frame) register-stack-frames frames)
(send (get-frame) register-vars (list-ref frames (get-frame-num)))
(send (get-frame) register-vars (if (empty? frames)
empty
(list-ref frames (get-frame-num))))
;;(fprintf (current-error-port) "break: ~a~n" (map expose-mark frames))
;;(printf "status = ~a~n" status)
(send status-message set-label