From e479b0057533f11cb28158a175cdc285af0cda1a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 17 Apr 2009 22:50:19 +0000
Subject: [PATCH] fix inverted argument default for editor<%> read-from-file
 method; better Check Sytax results on packages; added syntax/flatten-begin
 library

svn: r14548

original commit: 4b3626c1560658fe3937019e001911c2a44aaff3
---
 collects/mred/private/wxme/pasteboard.ss   | 2 +-
 collects/mred/private/wxme/text.ss         | 4 ++--
 collects/scribblings/gui/editor-intf.scrbl | 2 +-
 collects/scribblings/gui/text-class.scrbl  | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/mred/private/wxme/pasteboard.ss b/collects/mred/private/wxme/pasteboard.ss
index 80b023d9..9402788f 100644
--- a/collects/mred/private/wxme/pasteboard.ss
+++ b/collects/mred/private/wxme/pasteboard.ss
@@ -1913,7 +1913,7 @@
          (do-write-headers-footers f #f)))
 
   (def/override (read-from-file [editor-stream-in% f]
-                                [bool? [overwritestyle? #t]])
+                                [bool? [overwritestyle? #f]])
     (if (or s-user-locked? 
             (not (zero? write-locked)))
         #f
diff --git a/collects/mred/private/wxme/text.ss b/collects/mred/private/wxme/text.ss
index 2b297eaa..7a188eff 100644
--- a/collects/mred/private/wxme/text.ss
+++ b/collects/mred/private/wxme/text.ss
@@ -2581,9 +2581,9 @@
   (define/override (read-from-file . args)
     (case-args
      args
-     [([editor-stream-in% f] [exact-nonnegative-integer? start] [any? [overwritestyle? #t]])
+     [([editor-stream-in% f] [exact-nonnegative-integer? start] [any? [overwritestyle? #f]])
       (do-read-from-file f start overwritestyle?)]
-     [([editor-stream-in% f] [any? [overwritestyle? #t]])
+     [([editor-stream-in% f] [any? [overwritestyle? #f]])
       (do-read-from-file f 'start overwritestyle?)]
      (method-name 'text% 'read-from-file)))
 
diff --git a/collects/scribblings/gui/editor-intf.scrbl b/collects/scribblings/gui/editor-intf.scrbl
index 2184550f..99dc7b6f 100644
--- a/collects/scribblings/gui/editor-intf.scrbl
+++ b/collects/scribblings/gui/editor-intf.scrbl
@@ -1826,7 +1826,7 @@ See @method[editor<%> read-header-from-file].
 
 
 @defmethod[(read-from-file [stream (is-a?/c editor-stream-in%)]
-                           [overwrite-styles? any/c #t])
+                           [overwrite-styles? any/c #f])
            boolean?]{
 
 Reads new contents for the editor from a stream. The return value is
diff --git a/collects/scribblings/gui/text-class.scrbl b/collects/scribblings/gui/text-class.scrbl
index 3635683e..d0af7be3 100644
--- a/collects/scribblings/gui/text-class.scrbl
+++ b/collects/scribblings/gui/text-class.scrbl
@@ -1698,7 +1698,7 @@ Returns the paragraph number of the paragraph containing a given @techlink{posit
 @defmethod[#:mode extend
            (read-from-file [stream (is-a?/c editor-stream-in%)]
                            [start (or/c exact-nonnegative-integer? (one/of 'start))]
-                           [overwrite-styles? any/c #t])
+                           [overwrite-styles? any/c #f])
            boolean?]{
 
 New data is inserted at the @techlink{position} indicated by @scheme[start], or at