fix format_to_chars/4 (Ulrich Neumerkel #62)

2009-05-20 09:14:48 -07:00
parent 26a20fa74a
commit 2020a19e69
2 changed files with 7 additions and 7 deletions
--- a/library/charsio.yap
+++ b/library/charsio.yap
@@ -32,9 +32,9 @@
    ]).

 format_to_chars(Form, Args, OUT) :-
-	format_to_chars(Form, Args, [], OUT).
+	format_to_chars(Form, Args, OUT, []).

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