From 2624867bc94a6e2d1d74a9621b4c727a645b1930 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 25 Jul 2001 18:40:14 +0000
Subject: bug fix scanning ['\\\'']

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@584 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 frontend/scanner.icl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/frontend/scanner.icl b/frontend/scanner.icl
index 29ea072..c2a0282 100644
--- a/frontend/scanner.icl
+++ b/frontend/scanner.icl
@@ -1038,6 +1038,7 @@ ScanEndOfChar n chars input
 	# (eof, c, input)		= ReadChar input
 	| eof					= (ErrorToken "End of file inside char denotation", input)
 	| '\'' == c				= (CharToken (revCharListToString (n + 1) [c:chars]), input)
+	| '\\' == c				= ScanBSChar n chars input ScanCharList
 							= ScanCharList (n+1) [c:chars] input
 //							= (ErrorToken ScanErrCharErr, input)
 
-- 
cgit v1.2.3