Commit 9b6d7fa4 authored by Erick's avatar Erick

.

parent 5eb82398
......@@ -22,7 +22,7 @@
*
* Author: Erick Gallesio [eg@kaolin.unice.fr]
* Creation date: ????
* Last file update: 1-May-2011 22:30 (eg)
* Last file update: 1-May-2011 22:49 (eg)
*
*
* Completely rewritten for the STklos version (Jan. 2000)
......@@ -57,10 +57,10 @@ STk_getc(SCM port)
}
int
int
STk_get_character(SCM port) /* result may be a wide character */
{
return (PORT_UNGETC(port) != EOF) ?
return (PORT_UNGETC(port) != EOF) ?
/* we have an ungetted char, call normal getc */
STk_getc(port):
/* try to read it as an UTF-8 sequence */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment