reorg
parent
5f7d05010a
commit
752a9fc087
@ -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)
|
||||||
|
|
@ -1,14 +1,11 @@
|
|||||||
#lang debug racket/base
|
#lang debug racket/base
|
||||||
(require pollen/tag "lang-helper.rkt")
|
(require "core.rkt")
|
||||||
(provide (except-out (all-from-out racket/base) #%module-begin))
|
(provide (all-from-out "core.rkt"))
|
||||||
|
|
||||||
(define (doc-proc strs) (apply q strs))
|
|
||||||
(make-module-begin doc-proc)
|
|
||||||
|
|
||||||
(module reader racket/base
|
(module reader racket/base
|
||||||
(require "lang-helper.rkt")
|
(require "lang-helper.rkt")
|
||||||
(provide (rename-out [rs read-syntax]) get-info)
|
(provide (rename-out [rs read-syntax]) get-info)
|
||||||
(define rs (make-read-syntax 'quadwriter
|
(define rs (make-read-syntax 'quadwriter/lang
|
||||||
(λ (path ip)
|
(λ (path ip)
|
||||||
(for/list ([tok (in-port read ip)])
|
(for/list ([tok (in-port read ip)])
|
||||||
tok)))))
|
tok)))))
|
Loading…
Reference in New Issue