put debug in default environment

beautiful-racket-lib/br/main.rkt

@@ -19,9 +19,26 @@
   #'(parameterize ([current-namespace (make-base-namespace)])
       (dynamic-require . ARGS)))
 
-(module reader syntax/module-reader
-  #:language 'br
-  #:info br-get-info
-  #:read at:read
-  #:read-syntax at:read-syntax
-  (require br/get-info (prefix-in at: scribble/reader)))
+(module reader racket/base
+  (provide (rename-out
+            [br-read read]
+            [br-read-syntax read-syntax]
+            [at:get-info get-info]))
+
+  (module at-reader syntax/module-reader
+    #:language 'br
+    #:info br-get-info
+    #:read at:read
+    #:read-syntax at:read-syntax
+    (require br/get-info (prefix-in at: scribble/reader)))
+
+  (require debug/reader (prefix-in at: 'at-reader))
+
+  #|
+Use wrap-reader on the whole-module read function that would be exported
+by the reader module, not the single-expression read function like
+at:read-syntax that you deal with within syntax/module-reader or normal use.
+|#
+
+  (define br-read (wrap-reader at:read))
+  (define br-read-syntax (wrap-reader at:read-syntax)))

beautiful-racket-lib/info.rkt

@@ -7,6 +7,7 @@
 (define deps '(["base" #:version "6.3"]
                "at-exp-lib"
                "sugar"
+               "debug"
                "rackunit-lib"
                "gui-lib"
                "draw-lib"))