diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix charsio.

Browse Source
This commit is contained in:
Costa Vitor 2009-05-21 19:15:12 -05:00
parent f9533c8757
commit d7135f06e9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/charsio.yap
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, []).
format_to_chars(Form, Args, OUT, []) :- format_to_chars(Form, Args, OUT, L0) :-
open_mem_write_stream(Stream), open_mem_write_stream(Stream),
format(Stream,Form,Args), format(Stream,Form,Args),
peek_mem_write_stream(Stream, L0, O), peek_mem_write_stream(Stream, L0, O),