From 76e721f52b6b9267c93fd9dbdf166bf10dfe170c Mon Sep 17 00:00:00 2001
From: Alex Knauth <alexander@knauth.org>
Date: Fri, 31 Jul 2015 15:00:33 -0400
Subject: [PATCH] #lang sugar/debug: use #^ instead of ^

fixes https://github.com/mbutterick/sugar/issues/7
---
 sugar/debug.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sugar/debug.rkt b/sugar/debug.rkt
index 1c125b2..75016d3 100644
--- a/sugar/debug.rkt
+++ b/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)]))))))
\ No newline at end of file
+           [else (fallback)]))))))