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.
typesetting/quad/quadwriter/main.rkt

12 lines
380 B
Racket

6 years ago
#lang debug racket/base
6 years ago
(require pollen/tag "lang-helper.rkt")
(provide #%top #%datum #%app #%top-interaction q)
6 years ago
(define q (default-tag-function 'q))
6 years ago
(define (doc-proc strs) (apply q strs))
6 years ago
(make-module-begin doc-proc)
6 years ago
6 years ago
(module reader racket/base
(require "lang-helper.rkt")
6 years ago
(provide read-syntax get-info)
6 years ago
(define read-syntax (make-read-syntax 'quadwriter quad-at-reader)))