suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix to special handling via peek

Browse Source 
svn: r218
This commit is contained in:
Matthew Flatt 2005-06-19 15:19:24 +00:00
parent 70c5613bfe
commit d3a3a665eb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/port.c
View File

@ -2659,7 +2659,7 @@ Scheme_Object *scheme_get_special(Scheme_Object *port,
/* do location increment, since read didn't */ /* do location increment, since read didn't */
if (line > 0) if (line > 0)
line++; line++;
if (col > 0) if (col >= 0)
col++; col++;
if (pos > 0) if (pos > 0)
pos++; pos++;