fix write_strings breakage

This commit is contained in:
Vitor Santos Costa 2008-10-25 09:02:42 +01:00
parent 1b399e3433
commit e783a03610

View File

@ -363,6 +363,7 @@ putString(Term string, wrf writewch) /* writes a string */
while (string != TermNil) { while (string != TermNil) {
int ch = IntOfTerm(HeadOfTerm(string)); int ch = IntOfTerm(HeadOfTerm(string));
write_quoted(ch, '"', writewch); write_quoted(ch, '"', writewch);
string = TailOfTerm(string);
} }
wrputc('"', writewch); wrputc('"', writewch);
lastw = alphanum; lastw = alphanum;