pull/9/head
Matthew Butterick 11 years ago
parent 27c0005d11
commit 11c0fe64f4

@ -7,11 +7,11 @@
(syntax-case stx () (syntax-case stx ()
[(_ mode-arg) [(_ mode-arg)
(with-syntax ([new-module-begin (format-id stx "new-module-begin")]) (with-syntax ([new-module-begin (format-id stx "new-module-begin")])
#`(define-syntax (new-module-begin stx-arg) #'(define-syntax (new-module-begin stx-arg)
(syntax-case stx-arg () (syntax-case stx-arg ()
[(_ body-exprs (... ...)) [(_ body-exprs (... ...))
(syntax-protect (syntax-protect
#`(#%module-begin #'(#%module-begin
(module inner pollen/lang/doclang-raw (module inner pollen/lang/doclang-raw
;; doclang_raw is a version of scribble/doclang with the decoder disabled ;; doclang_raw is a version of scribble/doclang with the decoder disabled
;; first three lines are positional arguments for doclang-raw ;; first three lines are positional arguments for doclang-raw

Loading…
Cancel
Save