use debug-readtable in runtime-config

closes #6

Author: AlexKnauth

debug/lang/runtime-config.rkt

@@ -2,8 +2,7 @@
 
 (provide configure)
 
-;; TODO: have the `configure` function call a
-;;       `use-debug-readtable` function
+(require (only-in debug/reader use-debug-readtable))
 
 (define (configure data)
-  (void))
+  (use-debug-readtable))

debug/reader.rkt

@@ -1,6 +1,7 @@
 #lang racket/base
 
 (provide make-debug-readtable
+         use-debug-readtable
          current-syntax-introducer
          wrap-reader)
 
@@ -28,6 +29,11 @@
   (make-readtable rt report-char 'dispatch-macro report-proc))
 
 
+(define (use-debug-readtable [orig-rt (current-readtable)])
+  (port-count-lines! (current-input-port))
+  (current-readtable (make-debug-readtable orig-rt)))
+
+
 ;; current-syntax-introducer : (Parameterof [Syntax -> Syntax])
 (define current-syntax-introducer
   (make-parameter (λ (x) x)))