Using configure-runtime

2010-06-26 18:04:21 -06:00 · 2010-06-26 18:04:21 -06:00 · 4fe07902d9
commit 4fe07902d9
parent 92cb668c30
1 changed files with 4 additions and 4 deletions
--- a/collects/datalog/lang/reader.rkt
+++ b/collects/datalog/lang/reader.rkt
@ -10,6 +10,9 @@
              (dynamic-require 'datalog/tool/submit 'repl-submit?)]
             [(color-lexer)
              (dynamic-require 'datalog/tool/syntax-color 'get-syntax-token)]
+             [(configure-runtime)
+              (λ ()
+                (current-read-interaction even-read))]
             [else (default key defval)]))
  (require datalog/parse
           datalog/private/compiler)
@ -29,7 +32,4 @@
      (current-read-interaction odd-read)))
  (define (odd-read src ip)
    (current-read-interaction even-read)
-    eof)
-  
-  (current-read-interaction
-   even-read))
+    eof))