common.rkt (1521B)
1 #lang racket/base 2 (provide (all-defined-out)) 3 (require scribble/manual 4 (for-label racket/base)) 5 6 (define-syntax-rule (lang mod-name) 7 (elem (list (hash-lang) " " (racket mod-name)))) 8 (define tech:attribute 9 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "attribute")) 10 (define tech:stx-pats 11 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "syntax patterns")) 12 (define tech:stx-pat 13 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "syntax pattern")) 14 (define tech:stx-templates 15 (list (racket syntax) " " 16 (tech #:doc '(lib "scribblings/guide/guide.scrbl") "templates"))) 17 (define tech:stx-template 18 (list (racket syntax) " " 19 (tech #:doc '(lib "scribblings/guide/guide.scrbl") "template"))) 20 (define tech:templates 21 (tech #:doc '(lib "scribblings/guide/guide.scrbl") "templates")) 22 (define tech:template 23 (tech #:doc '(lib "scribblings/guide/guide.scrbl") "template")) 24 (define tech:pat-expanders 25 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "pattern expanders")) 26 (define tech:pat-expander 27 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "pattern expander")) 28 (define tech:stx-classes 29 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "syntax classes")) 30 (define tech:stx-class 31 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "syntax class")) 32 (define tech:pat-directives 33 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "pattern directives")) 34 (define tech:pat-directive 35 (tech #:doc '(lib "syntax/scribblings/syntax.scrbl") "pattern directive"))