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/quad/lang.rkt

24 lines
769 B
Racket

#lang racket/base
5 years ago
(require (for-syntax racket/base)
quad
(prefix-in doclang: "doclang-raw.rkt"))
(provide (rename-out [quad-mb #%module-begin])
5 years ago
#%top-interaction
#%top
#%app
#%datum
(except-out (all-from-out racket/base) #%module-begin))
5 years ago
(define-for-syntax export-name 'quad)
(define-syntax (quad-mb stx)
(syntax-case stx ()
5 years ago
[(_ . ARGS)
(with-syntax ([EXPORT (datum->syntax stx export-name)])
#'(doclang:#%module-begin
EXPORT ; positional arg for doclang-raw: name of export
(λ (xs)
(define x (q #:elems xs))
(println x)
x) ; positional arg for doclang-raw: post-processor
(provide EXPORT)
(begin . ARGS)))]))