suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Using configure-runtime

Browse Source
This commit is contained in:
Jay McCarthy 2010-06-26 18:04:21 -06:00
parent 92cb668c30
commit 4fe07902d9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/datalog/lang/reader.rkt
View File

@ -10,6 +10,9 @@
(dynamic-require 'datalog/tool/submit 'repl-submit?)] (dynamic-require 'datalog/tool/submit 'repl-submit?)]
[(color-lexer) [(color-lexer)
(dynamic-require 'datalog/tool/syntax-color 'get-syntax-token)] (dynamic-require 'datalog/tool/syntax-color 'get-syntax-token)]
[(configure-runtime)
(λ ()
(current-read-interaction even-read))]
[else (default key defval)])) [else (default key defval)]))
(require datalog/parse (require datalog/parse
datalog/private/compiler) datalog/private/compiler)
@ -29,7 +32,4 @@
(current-read-interaction odd-read))) (current-read-interaction odd-read)))
(define (odd-read src ip) (define (odd-read src ip)
(current-read-interaction even-read) (current-read-interaction even-read)
eof) eof))
(current-read-interaction
even-read))