reorg

quad/quadwriter/lang.rkt

@@ -0,0 +1,7 @@
+#lang debug racket/base
+(require pollen/tag "lang-helper.rkt")
+(provide (except-out (all-from-out racket/base) #%module-begin))
+
+(define (doc-proc strs) (apply q strs))
+(make-module-begin doc-proc)
+

quad/quadwriter/main.rkt

@@ -1,14 +1,11 @@
 #lang debug racket/base
-(require pollen/tag "lang-helper.rkt")
-(provide (except-out (all-from-out racket/base) #%module-begin))
-
-(define (doc-proc strs) (apply q strs))
-(make-module-begin doc-proc)
+(require "core.rkt")
+(provide (all-from-out "core.rkt"))
 
 (module reader racket/base
   (require "lang-helper.rkt")
   (provide (rename-out [rs read-syntax]) get-info)
-  (define rs (make-read-syntax 'quadwriter
+  (define rs (make-read-syntax 'quadwriter/lang
                                (λ (path ip)
                                  (for/list ([tok (in-port read ip)])
-                                   tok)))))
+                                           tok)))))