From 0b79aaa1aeec28d2b1716028fb7ba51ef5b1d8a0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 2 Nov 2008 12:28:59 +0000
Subject: [PATCH] doc repairs

svn: r12216
---
 collects/scribble/basic.ss                  |  4 +++-
 collects/scribblings/gui/dialog-funcs.scrbl |  6 +++---
 collects/scribblings/reference/cont.scrbl   |  8 +++-----
 collects/scribblings/reference/reader.scrbl | 22 +++++++++++++++++++++
 4 files changed, 31 insertions(+), 9 deletions(-)

diff --git a/collects/scribble/basic.ss b/collects/scribble/basic.ss
index 6f0b190239..3ad5099b0e 100644
--- a/collects/scribble/basic.ss
+++ b/collects/scribble/basic.ss
@@ -119,7 +119,9 @@
             (list? v))
         (let ([b (hash-ref interned v #f)])
           (if b
-              (weak-box-value b)
+              (or (weak-box-value b)
+                  ;; just in case the value is GCed before we extract it:
+                  (intern-taglet v))
               (begin
                 (hash-set! interned v (make-weak-box v))
                 v)))
diff --git a/collects/scribblings/gui/dialog-funcs.scrbl b/collects/scribblings/gui/dialog-funcs.scrbl
index 657667c878..45d2636f42 100644
--- a/collects/scribblings/gui/dialog-funcs.scrbl
+++ b/collects/scribblings/gui/dialog-funcs.scrbl
@@ -68,7 +68,7 @@ See also @scheme[path-dialog%].
                         [filename (or/c path-string? false/c) #f]
                         [extension (or/c string? false/c) #f]
                         [style null? null]
-                        [filters (listof (list/c string? string?)) @scheme['(("Any" "*.*"))]])
+                        [filters (listof (list/c string? string?)) '(("Any" "*.*"))])
          (or/c (listof path?) false/c)]{
 Like
 @scheme[get-file], except that the user can select multiple files, and the
@@ -82,7 +82,7 @@ Like
                    [filename (or/c path-string? false/c) #f]
                    [extension (or/c string? false/c) #f]
                    [style (listof (one-of/c 'packages 'enter-packages)) null]
-                   [filters (listof (list/c string? string?)) @scheme['(("Any" "*.*"))]])
+                   [filters (listof (list/c string? string?)) '(("Any" "*.*"))])
          (or/c path? false/c)]{
 
 Obtains a file pathname from the user via the platform-specific
@@ -105,7 +105,7 @@ If @scheme[directory] is not @scheme[#f], it is used as the starting
  prefix.
 
 Under Windows, if @scheme[extension] is not @scheme[#f], the returned path
- will gets a default extension if the user does not supply one. If
+ will get a default extension if the user does not supply one. If
  @scheme[extension] is the empty string, then the extension is derived
  from the user's @scheme[filters] choice if the corresponding pattern is
  of the form @scheme[(string-append "*." extension)]; if the pattern is
diff --git a/collects/scribblings/reference/cont.scrbl b/collects/scribblings/reference/cont.scrbl
index 6b34b69759..ddaead02b8 100644
--- a/collects/scribblings/reference/cont.scrbl
+++ b/collects/scribblings/reference/cont.scrbl
@@ -164,8 +164,7 @@ the closest prompt tagged by @scheme[prompt-tag], the
 @exnraise[exn:fail:contract:continuation].}
 
 @defproc[(call-with-escape-continuation 
-          [proc (continuation? . -> . any)]
-          [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) 
+          [proc (continuation? . -> . any)]) 
          any]{
 
 Like @scheme[call-with-current-continuation], but @scheme[proc] is not
@@ -181,12 +180,11 @@ than @scheme[call-with-current-continuation].
 A continuation obtained from @scheme[call-with-escape-continuation] is
 actually a kind of prompt. Escape continuations are provided mainly
 for backward compatibility, since they pre-date general prompts in
-MzScheme, and because @scheme[call/ec] is often an easy replacement
+PLT Scheme, and because @scheme[call/ec] is often an easy replacement
 for @scheme[call/cc] to improve performance.}
 
 @defproc[(call/ec
-          [proc (continuation? . -> . any)]
-          [prompt-tag continuation-prompt-tag? (default-continuation-prompt-tag)]) 
+          [proc (continuation? . -> . any)]) 
          any]{
 
 The @scheme[call/ec] binding is an alias for @scheme[call-with-escape-continuation].
diff --git a/collects/scribblings/reference/reader.scrbl b/collects/scribblings/reference/reader.scrbl
index 34b686db67..bda118e113 100644
--- a/collects/scribblings/reference/reader.scrbl
+++ b/collects/scribblings/reference/reader.scrbl
@@ -826,6 +826,28 @@ certain grammars, such as that of R@superscript{6}RS
 By convention, @litchar{#lang} normally appears at the beginning of a
 file, possibly after comment forms, to specify the syntax of a module.
 
+@defmodulelang[s-exp]
+
+The @scheme[s-exp] ``language'' is a kind of meta-language. It
+@scheme[read]s the S-expression that follows @litchar{#lang s-exp} and
+uses it as the language of a @scheme[module] form. It also reads all
+remaining S-expressions until an end-of-file, using them for the body
+of the generated @scheme[module].
+
+That is,
+
+@schememod[
+s-exp _module-path
+_form ...
+]
+
+is equivalent to
+
+@schemeblock[
+(module _name _module-path
+  _form ...)
+]
+
 @section[#:tag "parse-honu"]{Honu Parsing}
 
 See @|HonuManual| for information on @litchar{#hx} and