fix to special handling via peek

svn: r218
2005-06-19 15:19:24 +00:00 · 2005-06-19 15:19:24 +00:00 · d3a3a665eb
commit d3a3a665eb
parent 70c5613bfe
1 changed files with 1 additions and 1 deletions
--- a/src/mzscheme/src/port.c
+++ b/src/mzscheme/src/port.c
@ -2659,7 +2659,7 @@ Scheme_Object *scheme_get_special(Scheme_Object *port,
    /* do location increment, since read didn't */
    if (line > 0)
      line++;
-    if (col > 0)
+    if (col >= 0)
      col++;
    if (pos > 0)
      pos++;