From 6e1f35a3198ddc2897489e13aba87a8d64118f37 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 27 Mar 2011 16:30:44 -0600 Subject: [PATCH] fix WXME stream `write-bytes' and `write' method results --- collects/mred/private/wxme/stream.rkt | 3 ++- collects/tests/gracket/wxme.rkt | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mred/private/wxme/stream.rkt b/collects/mred/private/wxme/stream.rkt index 2828e01c46..246bf4241b 100644 --- a/collects/mred/private/wxme/stream.rkt +++ b/collects/mred/private/wxme/stream.rkt @@ -180,7 +180,8 @@ (def/override (write-bytes [bytes? v] [exact-nonnegative-integer? [start 0]] [exact-nonnegative-integer? [end (bytes-length v)]]) - (write-bytes-proc v port start end))) + (write-bytes-proc v port start end) + (void))) (defclass editor-stream-out-file-base% editor-stream-out-port-base% (super-new)) diff --git a/collects/tests/gracket/wxme.rkt b/collects/tests/gracket/wxme.rkt index 50d9234193..65cd1f110f 100644 --- a/collects/tests/gracket/wxme.rkt +++ b/collects/tests/gracket/wxme.rkt @@ -668,11 +668,11 @@ (define fbo (make-object editor-stream-out-bytes-base%)) (expect (send fbo tell) 0) -(expect (send fbo write-bytes #"abc") 3) +(expect (send fbo write-bytes #"abc") (void)) (expect (send fbo tell) 3) (expect (send fbo get-bytes) #"abc") (send fbo seek 2) -(expect (send fbo write-bytes #"012345" 1 4) 3) +(expect (send fbo write-bytes #"012345" 1 4) (void)) (expect (send fbo tell) 5) (expect (send fbo get-bytes) #"ab123") (expect (send fbo bad?) #f)