Fix parsing problem with trailing whitespaces and no cursor-index.
This commit is contained in:
parent
bda54e8fbe
commit
80253ae452
|
@ -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)))
|
||||
|
|
Loading…
Reference in New Issue