#lang sugar/debug: use #^ instead of ^

fixes https://github.com/mbutterick/sugar/issues/7

sugar/debug.rkt

@@ -16,7 +16,7 @@
   
   (define (make-debug-readtable [rt (current-readtable)])
     (make-readtable rt
-                    #\^ 'non-terminating-macro report-proc))
+                    #\^ 'dispatch-macro report-proc))
 
   
   (define (wrap-reader reader)
@@ -81,4 +81,4 @@
        (lambda (key defval)
          (define (fallback) (if proc (proc key defval) defval))
          (case key
-           [else (fallback)]))))))
+           [else (fallback)]))))))