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

fix a debugger interface bug

Browse Source 
svn: r9755
This commit is contained in:
Greg Cooper 2008-05-08 21:52:48 +00:00
parent c69b4b947e
commit 4b3aae56c6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -871,14 +871,16 @@
(define (can-step-over? frames status) (define (can-step-over? frames status)
(and (or (not (zero? (get-frame-num))) (eq? status 'entry-break)) (and (or (not (zero? (get-frame-num))) (eq? status 'entry-break))
frames
(not (empty? frames)) (not (empty? frames))
(not (eq? (frame->end-breakpoint-status (list-ref frames (get-frame-num))) 'invalid)))) (not (eq? (frame->end-breakpoint-status (list-ref frames (get-frame-num))) 'invalid))))
(define (can-step-out? frames status) (define (can-step-out? frames status)
(let ([frames (list-tail frames (get-frame-num))]) (and frames
(and (not (empty? frames)) (let ([frames (list-tail frames (get-frame-num))])
(ormap (lambda (f) (not (eq? (frame->end-breakpoint-status f) 'invalid))) (and (not (empty? frames))
(rest frames))))) (ormap (lambda (f) (not (eq? (frame->end-breakpoint-status f) 'invalid)))
(rest frames))))))
(define/public suspend-gui (define/public suspend-gui
(opt-lambda (frames status [switch-tabs? #f] [already-stopped? #f]) (opt-lambda (frames status [switch-tabs? #f] [already-stopped? #f])