From 7a4ef1667492921f3c80c2ec4eb14aadddda1e21 Mon Sep 17 00:00:00 2001
From: ronny
Date: Wed, 25 Jul 2001 18:46:39 +0000
Subject: bug fix scanning ['']

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

(limited to 'frontend')

diff --git a/frontend/scanner.icl b/frontend/scanner.icl
index c2a0282..5ea3e50 100644
--- a/frontend/scanner.icl
+++ b/frontend/scanner.icl
@@ -971,6 +971,7 @@ ScanChar :: !Input ![Char] -> (!Token, !Input)
 ScanChar input chars
 	# (eof, c, input)		= ReadNormalChar input
 	| eof					= (ErrorToken "End of file inside Char denotation", input)
+	| '\'' == c				= (CharListToken "", input)
 	| '\\' <> c				= ScanEndOfChar 1 [c: chars] input
 	= ScanBSChar 0 chars input ScanEndOfChar
 
-- 
cgit v1.2.3