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