Fix parsing problem with trailing whitespaces and no cursor-index.

This commit is contained in:
eknauel 2005-08-21 16:53:23 +00:00
parent bda54e8fbe
commit 80253ae452
1 changed files with 2 additions and 1 deletions

View File

@ -139,7 +139,8 @@
(cond
((eof-object? c)
(lp c (if (or cursor?
(= (current-column port) cursor-index))
(and cursor-index
(= (current-column port) cursor-index)))
(cons (make-empty-to-complete cursor-index)
tokens)
tokens)))