racket/collects/scribble/manual/lang/reader.ss
2009-07-28 18:06:14 +00:00

16 lines
440 B
Scheme

#lang s-exp syntax/module-reader
scribble/manual/lang
#:read scribble:read-inside
#:read-syntax scribble:read-syntax-inside
#:whole-body-readers? #t
#:wrapper1 (lambda (t) (cons 'doc (t)))
#:info (lambda (key default)
(case key
[(color-lexer)
(dynamic-require 'syntax-color/scribble-lexer 'scribble-inside-lexer)]
[else (default key)]))
(require (prefix-in scribble: "../../reader.ss"))