commit 91eee319106de5ae52896f9c0939f97c6b52c58e parent 2777960bf0d87c8212d7cde660133b8effaabc49 Author: Eli Barzilay <eli@racket-lang.org> Date: Fri, 7 Mar 2008 02:27:09 +0000 read-inside-syntax -> read-syntax-inside svn: r8912 original commit: b866eeb5579bba3399931eed36e9ead8771a832d Diffstat:
7 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/collects/scribble/doc.txt b/collects/scribble/doc.txt @@ -643,7 +643,7 @@ constructing a reader table based on the current one, and using that in reading. > (read-inside [input-port]) -> (read-inside-syntax [source-name] [input-port]) +> (read-syntax-inside [source-name] [input-port]) These `-inside' variants parse as if starting inside a "@{...}", and they return a (syntactic) list. Useful for implementing languages diff --git a/collects/scribble/doc/reader.ss b/collects/scribble/doc/reader.ss @@ -9,7 +9,7 @@ (wrap inp (scribble:read-inside inp))) (define (*read-syntax [src #f] [port (current-input-port)]) - (wrap port (scribble:read-inside-syntax src port))) + (wrap port (scribble:read-syntax-inside src port))) (define (wrap port body) (let* ([p-name (object-name port)] diff --git a/collects/scribble/text.ss b/collects/scribble/text.ss @@ -36,7 +36,7 @@ ;; Utilities (require (prefix-in at: "reader.ss")) -(provide at:read-inside at:read-inside-syntax) +(provide at:read-inside at:read-syntax-inside) (provide include) (define-syntax (include stx) @@ -54,7 +54,7 @@ [dir dir]) #'(let ([contents (with-input-from-file (path->complete-path filename dir) - at:read-inside-syntax)]) + at:read-syntax-inside)]) (parameterize ([current-namespace ns]) (for ([expr (syntax->list contents)]) (show (eval expr)))))))])) diff --git a/collects/scribble/text/lang/reader.ss b/collects/scribble/text/lang/reader.ss @@ -9,7 +9,7 @@ (wrap inp (at:read-inside inp))) (define (*read-syntax [src #f] [port (current-input-port)]) - (wrap port (at:read-inside-syntax src port))) + (wrap port (at:read-syntax-inside src port))) (define (wrap port body) (define (strip-leading-newlines stxs) diff --git a/collects/scribblings/scribble/docreader.scrbl b/collects/scribblings/scribble/docreader.scrbl @@ -7,6 +7,6 @@ @defmodulelang[scribble/doc]{The @schememodname[scribble/doc] language is the same as @schememodname[scribble/doclang], except that -@scheme[read-inside-syntax] is used to read the body of the module. In +@scheme[read-syntax-inside] is used to read the body of the module. In other words, the module body starts in Scribble ``text'' mode instead of S-expression mode.} diff --git a/collects/scribblings/scribble/preprocessor.scrbl b/collects/scribblings/scribble/preprocessor.scrbl @@ -11,7 +11,7 @@ changes that make it suitable as a preprocessor language: @itemize{ - @item{It uses @scheme[read-inside-syntax] to read the body of the + @item{It uses @scheme[read-syntax-inside] to read the body of the module, similar to @secref["docreader"].} @item{It has a custom printer (@scheme[current-print]) that displays diff --git a/collects/scribblings/scribble/reader.scrbl b/collects/scribblings/scribble/reader.scrbl @@ -756,7 +756,7 @@ in reading. } @defproc[(read-inside [in input-port? (current-input-port)]) any]{} -@defproc[(read-inside-syntax [source-name any/c (object-name in)] +@defproc[(read-syntax-inside [source-name any/c (object-name in)] [in input-port? (current-input-port)]) (or/c syntax? eof-object?)]{ These @schemeid[-inside] variants parse as if starting inside a