adapt Debug button to annotator.ss interface change

svn: r2206
2006-02-13 14:22:59 +00:00 · 2006-02-13 14:22:59 +00:00 · 3cdb386436
commit 3cdb386436
parent 5cdb42c985
1 changed files with 2 additions and 1 deletions
--- 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))))]))))))