fix tab-paste bug and missing default for read-editor-version

svn: r14493 original commit: 767d5dde3322ba1eec08654d59521ed1aab68976
2009-04-11 22:40:27 +00:00 · 2009-04-11 22:40:27 +00:00 · 1c458d4d32
commit 1c458d4d32
parent 6bfcb41c5e
2 changed files with 3 additions and 2 deletions
--- a/collects/mred/private/wxme/editor.ss
+++ b/collects/mred/private/wxme/editor.ss
@ -1729,7 +1729,7 @@
                             v)))])
               (equal? s MRED-READER+START-STR))))))

-(define (read-editor-version mf b parse-format? show-errors?)
+(define (read-editor-version mf b parse-format? [show-errors? #t])
  (and
   (or
    (not parse-format?)
--- a/collects/mred/private/wxme/private.ss
+++ b/collects/mred/private/wxme/private.ss
@ -28,7 +28,8 @@

 ;; snip-class%
 (define-local-member-name
-  get-s-required?)
+  get-s-required?
+  s-read)

 ;; editor-data%
 (define-local-member-name