From d2bb69fdb9106b80a88bddc5f54dadf56c5379c5 Mon Sep 17 00:00:00 2001 From: Greg Cooper Date: Sat, 30 Dec 2006 02:40:38 +0000 Subject: [PATCH] fix for debugger crashing svn: r5196 --- collects/mztake/debug-tool.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/mztake/debug-tool.ss b/collects/mztake/debug-tool.ss index ac022d4950..b94561d473 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/mztake/debug-tool.ss @@ -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))))