Commit 7e26eb05 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-09-06 11:53:18 by simonmar]

fix line number discrepancy w/ string gaps.
parent 13cf2952
......@@ -627,9 +627,9 @@ lex_string cont glaexts s buf
-- ignore \& in a string, deal with string gaps
'\\'# | next_ch `eqChar#` '&'#
-> lex_string cont glaexts s (setCurrentPos# buf 2#)
-> lex_string cont glaexts s buf'
| is_space next_ch
-> lex_stringgap cont glaexts s buf'
-> lex_stringgap cont glaexts s (incLexeme buf)
where next_ch = lookAhead# buf 1#
buf' = setCurrentPos# buf 2#
......
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