emacs-bug-tracker
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[debbugs-tracker] bug#24816: closed (Bug in (rnrs io ports) procedure op


From: GNU bug Tracking System
Subject: [debbugs-tracker] bug#24816: closed (Bug in (rnrs io ports) procedure open-string-output-port)
Date: Wed, 01 Mar 2017 13:28:02 +0000

Your message dated Wed, 01 Mar 2017 14:26:50 +0100
with message-id <address@hidden>
and subject line Re: bug#24816: Bug in (rnrs io ports) procedure 
open-string-output-port
has caused the debbugs.gnu.org bug report #24816,
regarding Bug in (rnrs io ports) procedure open-string-output-port
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden)


-- 
24816: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=24816
GNU Bug Tracking System
Contact address@hidden with problems
--- Begin Message --- Subject: Bug in (rnrs io ports) procedure open-string-output-port Date: Sat, 29 Oct 2016 17:29:09 +0700
The "open-string-output-port" procedure in (rnrs io ports) returns two
values, a string port and a thunk that returns a string of the
characters written to the port so far. In the R6RS standard documents,
the reading procedure is destructive, in that it clears all the
characters written to the port so far (though, it does not close it,
so it can still be used). However, in Guile 2.1.4, the characters are
not cleared and so running the thunk again immediately afterwards will
produce the same output, which is a bug.

This can be tested running the following script


    (import (rnrs base (6))
            (rnrs io ports (6))
            (rnrs io simple (6)))

    (let-values (((p get-output) (open-string-output-port)))
      (display "hello" p)
      (flush-output-port p)
      (let ((out-first (get-output)))
        (let ((out-second (get-output)))
          (display (string-append "Follows R6RS: "
                                  (if (string=? out-first out-second)
                                      "no"
                                      "yes")))
          (newline)
          (display (string-append "out-first: " out-first))
          (newline)
          (display (string-append "out-second: " out-second))
          (newline))))


which produces the following output in guile


    Follows R6RS: no
    out-first: hello
    out-second: hello


when it should output



    Follows R6RS: yes
    out-first: hello
    out-second:


instead.




Freja Nordsiek



--- End Message ---
--- Begin Message --- Subject: Re: bug#24816: Bug in (rnrs io ports) procedure open-string-output-port Date: Wed, 01 Mar 2017 14:26:50 +0100 User-agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux)
On Sat 29 Oct 2016 12:29, Freja Nordsiek <address@hidden> writes:

> The "open-string-output-port" procedure in (rnrs io ports) returns two
> values, a string port and a thunk that returns a string of the
> characters written to the port so far. In the R6RS standard documents,
> the reading procedure is destructive, in that it clears all the
> characters written to the port so far (though, it does not close it,
> so it can still be used). However, in Guile 2.1.4, the characters are
> not cleared and so running the thunk again immediately afterwards will
> produce the same output, which is a bug.

Thanks for the report; fixed in git.  Cheers :)

Andy


--- End Message ---

reply via email to

[Prev in Thread] Current Thread [Next in Thread]