Commit c890d45b authored by Erick Gallesio's avatar Erick Gallesio

Bug fix with format string ending with a ~

parent 63eb8ce7
...@@ -20,7 +20,7 @@ ...@@ -20,7 +20,7 @@
* *
* Author: Erick Gallesio [eg@unice.fr] * Author: Erick Gallesio [eg@unice.fr]
* Creation date: 17-Feb-1993 12:27 * Creation date: 17-Feb-1993 12:27
* Last file update: 6-Jun-2007 18:56 (eg) * Last file update: 4-Jul-2007 12:36 (eg)
* *
*/ */
...@@ -839,7 +839,7 @@ static SCM internal_format(int argc, SCM *argv, int error) ...@@ -839,7 +839,7 @@ static SCM internal_format(int argc, SCM *argv, int error)
case '~': STk_putc('~', port); case '~': STk_putc('~', port);
break; break;
default: STk_putc('~', port); default: STk_putc('~', port);
STk_putc(*p, port); if (*p) STk_putc(*p, port);
} }
prev_char = '?'; prev_char = '?';
} else { } else {
......
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