You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
507 B
Racket
14 lines
507 B
Racket
#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)
|
|
|
|
(module reader racket/base
|
|
(require "lang-helper.rkt")
|
|
(provide (rename-out [rs read-syntax]) get-info)
|
|
(define rs (make-read-syntax 'quadwriter
|
|
(λ (path ip)
|
|
(for/list ([tok (in-port read ip)])
|
|
tok))))) |