From: simonmar <unknown>
Date: Mon, 6 Sep 1999 11:53:18 +0000 (+0000)
Subject: [project @ 1999-09-06 11:53:18 by simonmar]
X-Git-Tag: Approximately_9120_patches~5841
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7e26eb05a84f5245ff3e5b1a6805d1fcc5cce127;p=ghc-hetmet.git

[project @ 1999-09-06 11:53:18 by simonmar]
fix line number discrepancy w/ string gaps.
---

diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 4ee690b..ba2ed1f 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -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#