fix another debugger interface bug
svn: r9756
This commit is contained in:
parent
4b3aae56c6
commit
0d8b07d45e
|
@ -895,8 +895,8 @@
|
||||||
(send (send (get-frame) get-step-over-button) enable (can-step-over? frames status))
|
(send (send (get-frame) get-step-over-button) enable (can-step-over? frames status))
|
||||||
(send (send (get-frame) get-step-out-button) enable (can-step-out? frames status))
|
(send (send (get-frame) get-step-out-button) enable (can-step-out? frames status))
|
||||||
(send (send (get-frame) get-resume-button) enable #t)
|
(send (send (get-frame) get-resume-button) enable #t)
|
||||||
(send (get-frame) register-stack-frames frames already-stopped?)
|
(when (cons? frames)
|
||||||
(unless (empty? frames)
|
(send (get-frame) register-stack-frames frames already-stopped?)
|
||||||
(send (get-frame) register-vars (list-ref frames (get-frame-num))))
|
(send (get-frame) register-vars (list-ref frames (get-frame-num))))
|
||||||
(send status-message set-label
|
(send status-message set-label
|
||||||
(if (and (cons? status) top-of-stack?)
|
(if (and (cons? status) top-of-stack?)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user