From 3cdb386436d5dc777405bd6e323e0b4ce6d456ad Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 13 Feb 2006 14:22:59 +0000 Subject: [PATCH] adapt Debug button to annotator.ss interface change svn: r2206 --- collects/mztake/debug-tool.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/mztake/debug-tool.ss b/collects/mztake/debug-tool.ss index 82420080b9..3a6509ef06 100644 --- a/collects/mztake/debug-tool.ss +++ b/collects/mztake/debug-tool.ss @@ -483,7 +483,8 @@ (let loop ([i 0]) (when (< i (syntax-span bound)) (vector-set! pos-vec (+ i (syntax-position bound)) binding) - (loop (add1 i))))))]) + (loop (add1 i))))) + void)]) (for-each (lambda (posn) (hash-table-put! breakpoints posn #f)) break-posns) ;(display-results (list orig-exp)) annotated))))]))))))