fix charsio.

This commit is contained in:
Costa Vitor 2009-05-21 19:15:12 -05:00
parent f9533c8757
commit d7135f06e9

View File

@ -34,7 +34,7 @@
format_to_chars(Form, Args, OUT) :-
format_to_chars(Form, Args, OUT, []).
format_to_chars(Form, Args, OUT, []) :-
format_to_chars(Form, Args, OUT, L0) :-
open_mem_write_stream(Stream),
format(Stream,Form,Args),
peek_mem_write_stream(Stream, L0, O),