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

fix for debugger crashing

Browse Source 
svn: r5196
This commit is contained in:
Greg Cooper 2006-12-30 02:40:38 +00:00
parent dc004f725b
commit d2bb69fdb9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mztake/debug-tool.ss
View File

@ -51,7 +51,7 @@
#f)) #f))
(define (break-at bp p) (define (break-at bp p)
(hash-table-get bp p)) (hash-table-get bp p #f))
(define (truncate str n) (define (truncate str n)
(if (< (string-length str) n) (if (< (string-length str) n)
@ -529,7 +529,7 @@
(current-eval) (current-eval)
(lambda (pos) (lambda (pos)
(or (hash-table-get breakpoints -1) (or (hash-table-get breakpoints -1)
(let ([bp (hash-table-get breakpoints pos)]) (let ([bp (hash-table-get breakpoints pos #f)])
(if (procedure? bp) (if (procedure? bp)
(bp) (bp)
bp)))) bp))))