make scribble reader section fit narrower column

svn: r6265

collects/dynext/doc.txt

@@ -186,22 +186,26 @@ _file.ss_
    extension file suffix to the path/string s, returning a path.
 
 > (extract-base-filename/ss s program) - strips the Scheme file suffix
+   from the path/string s and returns a stripped path. Unlike the
+   other functions below, when `program' is not #f, then any suffix
+   (including no suffix) is allowed. If s is not a Scheme file and
+   `program' is #f, #f is returned. The `program' argument is optional
+   and defaults to #f.
+
+> (extract-base-filename/c s program) - strips the Scheme file suffix
    from the path/string s and returns a stripped path. If s is not a
    Scheme file name and `program' is a symbol, and error is signaled.
    If s is not a Scheme file and `program' is #f, #f is returned. The
    `program' argument is optional and defaults to #f.
 
-> (extract-base-filename/c s program) - same as
-   extract-base-filename/ss, but for C source files.
-
 > (extract-base-filename/kp s program) - same as
-   extract-base-filename/ss, but for constant pool files.
+   extract-base-filename/c, but for constant pool files.
 
 > (extract-base-filename/o s program) - same as
-   extract-base-filename/ss, but for compiled object files.
+   extract-base-filename/c, but for compiled object files.
 
 > (extract-base-filename/ext s program) - same as
-   extract-base-filename/ss, but for extension files.
+   extract-base-filename/c, but for extension files.
 
 The unit form _dynext:file@_ from _file-unit.ss_ requires no
 imports and exports _dynext:file^_ from _file-sig.ss_.

collects/dynext/file-unit.ss

@@ -55,13 +55,15 @@
 									  (string->path s))))])
 				 (cond
 				  [m (bytes->path (cadr m))]
-				  [p (error p "not a ~a filename (doesn't end with ~a): ~a" kind simple s)]
+				  [p (if simple
+                                         (error p "not a ~a filename (doesn't end with ~a): ~a" kind simple s)
+                                         (path-replace-suffix s #""))]
 				  [else #f]))]
 			      [(s) (extract-base-filename s #f)])])
 		     extract-base-filename)))])
 	  (values
 	   (mk 'extract-base-filename/ss 
-	       #"[sS][sS]|[sS][cC][mM]" "Scheme" ".ss or .scm")
+	       #"[sS][sS]|[sS][cC][mM]" "Scheme" #f)
 	   (mk 'extract-base-filename/c
 	       #"[cC]|[cC][cC]|[cC][xX][xX]|[cC][pP][pP]|[cC][+][+]|[mM]" "C" ".c, .cc, .cxx, .cpp, .c++, or .m")
 	   (mk 'extract-base-filename/kp

collects/scribblings/scribble/reader.scrbl

@@ -307,7 +307,7 @@ the end of the text.  They are therefore allowed, as long as they are
 balanced.
 
 @scribble-examples[
-  "@foo{f{o}o}"]
+  "@foo{f{o}o}"
 ]
 
 There is also an alternative syntax for the body, one that specifies a
@@ -492,8 +492,8 @@ the need for functions, for example:
 @verbatim[
 #<<EOS
   > (define (important . text) @`b{@u{@big{@,@text}}})
-  > (important @`p{This is an important announcement!
+  > (important @`p{An important announcement!
                    Read it!})
-  (b (u (big (p "This is an important announcement!" "\n" "Read it!"))))
+  (b (u (big (p "An important announcement!" "\n" "Read it!"))))
 EOS
 ]

collects/scribblings/scribble/utils.ss

@@ -35,7 +35,12 @@
      (map (lambda (line)
             (let ([line (if (string? line)
                             (list (litchar/lines line)
-                                  (scheme:to-element (scribble:read (open-input-string line))))
+                                  (scheme:to-paragraph
+                                   (let ([p (open-input-string line)])
+                                     (port-count-lines! p)
+                                     (if (regexp-match? #rx"\n" line)
+                                         (scribble:read-syntax #f p)
+                                         (scribble:read p)))))
                             line)])
               (list (as-flow spacer)
                     (as-flow (if line (car line) ""))

collects/sirmail/sirmail.ss

@@ -29,6 +29,10 @@
   (require (lib "hierlist-sig.ss" "hierlist")
 	   (lib "hierlist.ss" "hierlist"))
 
+  ;; For testing purposes, cause GC accounting to be
+  ;;  enabled:
+  (current-memory-use (current-custodian))
+
   ;; Constants:
   (define inbox-name "Inbox")
   (define default-mailbox-options null)

collects/tests/mzscheme/benchmarks/common/auto.ss

@@ -274,5 +274,5 @@ exec mzscheme -qu "$0" ${1+"$@"}
   (map (lambda (impl)
          (map (lambda (bm)
                 (run-benchmark impl bm))
-              actual-benchmarks-to-run ))
+              actual-benchmarks-to-run))
        actual-implementations-to-run))