use clojure readtable for repl

Author: AlexKnauth

clojure/lang/language-info.rkt

@@ -0,0 +1,11 @@
+#lang racket/base
+
+(provide get-language-info)
+
+(define (get-language-info data)
+  (lambda (key default)
+    (case key
+      [(configure-runtime)
+       '(#[clojure/lang/runtime-config configure #f])]
+      [else default])))
+

clojure/lang/reader.rkt

@@ -1,28 +1,10 @@
 #lang s-exp syntax/module-reader
 clojure/clojure
+#:language-info '#[clojure/lang/language-info get-language-info #f]
 #:wrapper1
 (lambda (t)
   (parameterize ([current-readtable (make-clojure-readtable)])
     (t)))
 
-(define (make-clojure-readtable [rt (current-readtable)])
-  (make-readtable rt
-                  #\~ #\, #f
-                  #\, #\space #f
-                  #\_ 'dispatch-macro s-exp-comment-proc
-                  #\[ 'terminating-macro vec-proc
-                  ))
-
-(define (s-exp-comment-proc ch in src ln col pos)
-  (make-special-comment (read-syntax/recursive src in)))
-
-(define (vec-proc ch in src ln col pos)
-  (define lst-stx
-    (parameterize ([read-accept-dot #f])
-      (read-syntax/recursive src in ch (make-readtable (current-readtable) ch #\[ #f))))
-  (define lst (syntax->list lst-stx))
-  (datum->syntax lst-stx (list->immutable-vector lst) lst-stx lst-stx))
-
-(define (list->immutable-vector lst)
-  (apply vector-immutable lst))
+(require clojure/reader)
 

clojure/lang/runtime-config.rkt

@@ -0,0 +1,9 @@
+#lang racket/base
+
+(provide configure)
+
+(require (only-in clojure/reader make-clojure-readtable))
+
+(define (configure data)
+  (current-readtable (make-clojure-readtable)))
+

clojure/reader.rkt

@@ -0,0 +1,25 @@
+#lang racket/base
+
+(provide make-clojure-readtable)
+
+(define (make-clojure-readtable [rt (current-readtable)])
+  (make-readtable rt
+                  #\~ #\, #f
+                  #\, #\space #f
+                  #\_ 'dispatch-macro s-exp-comment-proc
+                  #\[ 'terminating-macro vec-proc
+                  ))
+
+(define (s-exp-comment-proc ch in src ln col pos)
+  (make-special-comment (read-syntax/recursive src in)))
+
+(define (vec-proc ch in src ln col pos)
+  (define lst-stx
+    (parameterize ([read-accept-dot #f])
+      (read-syntax/recursive src in ch (make-readtable (current-readtable) ch #\[ #f))))
+  (define lst (syntax->list lst-stx))
+  (datum->syntax lst-stx (list->immutable-vector lst) lst-stx lst-stx))
+
+(define (list->immutable-vector lst)
+  (apply vector-immutable lst))
+