commit 391eb096b7854186212621f54901d485aec27f7a parent 0bb6cd944af9b50e3fef49877aa6c25a57b7f92c Author: Eli Barzilay <eli@barzilay.org> Date: Tue, 26 Oct 2010 16:17:09 -0400 More name improvements: `scribble/text/textlang' -> `scribble/text/lang' and the same for `scribble/html/lang'. original commit: 69a490c10b4964ea174f31a8b992e034ff3fb270 Diffstat:
| D | collects/scribble/html/htmllang.rkt | | | 22 | ---------------------- |
| A | collects/scribble/html/lang.rkt | | | 21 | +++++++++++++++++++++ |
| R | collects/scribble/text/textlang.rkt -> collects/scribble/text/lang.rkt | | | 0 | |
| M | collects/scribble/text/lang/reader.rkt | | | 2 | +- |
4 files changed, 22 insertions(+), 23 deletions(-)
diff --git a/collects/scribble/html/htmllang.rkt b/collects/scribble/html/htmllang.rkt @@ -1,22 +0,0 @@ -#lang racket/base - -(require "main.rkt" scribble/text/textlang scribble/text/syntax-utils - (for-syntax racket/base)) - -(provide (except-out (all-from-out scribble/text/textlang) - #%top #%module-begin) - (rename-out [top #%top] [module-begin #%module-begin]) - (all-from-out "main.rkt")) - -(define-syntax (top stx) - (syntax-case stx () - [(_ . x) - (let ([x* (syntax-e #'x)]) - (if (and (symbol? x*) (regexp-match? #rx":$" (symbol->string x*))) - #''x - #'(#%top . x)))])) - -(define-syntax-rule (module-begin expr ...) - (#%plain-module-begin - (port-count-lines! (current-output-port)) - (process-begin/text begin output-xml expr ...))) diff --git a/collects/scribble/html/lang.rkt b/collects/scribble/html/lang.rkt @@ -0,0 +1,21 @@ +#lang racket/base + +(require "main.rkt" scribble/text/lang scribble/text/syntax-utils + (for-syntax racket/base)) + +(provide (except-out (all-from-out scribble/text/lang) #%top #%module-begin) + (rename-out [top #%top] [module-begin #%module-begin]) + (all-from-out "main.rkt")) + +(define-syntax (top stx) + (syntax-case stx () + [(_ . x) + (let ([x* (syntax-e #'x)]) + (if (and (symbol? x*) (regexp-match? #rx":$" (symbol->string x*))) + #''x + #'(#%top . x)))])) + +(define-syntax-rule (module-begin expr ...) + (#%plain-module-begin + (port-count-lines! (current-output-port)) + (process-begin/text begin output-xml expr ...))) diff --git a/collects/scribble/text/textlang.rkt b/collects/scribble/text/lang.rkt diff --git a/collects/scribble/text/lang/reader.rkt b/collects/scribble/text/lang/reader.rkt @@ -1,6 +1,6 @@ #lang s-exp syntax/module-reader -scribble/text/textlang +scribble/text/lang #:read scribble:read-inside #:read-syntax scribble:read-syntax-inside