diff options
| author | ronny | 2001-07-25 18:46:39 +0000 |
|---|---|---|
| committer | ronny | 2001-07-25 18:46:39 +0000 |
| commit | 7a4ef1667492921f3c80c2ec4eb14aadddda1e21 (patch) | |
| tree | 18c4253af48b87c10e3e7833f94337616f89b140 | |
| parent | bug fix scanning ['\\\''] (diff) | |
bug fix scanning ['']
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@585 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
| -rw-r--r-- | frontend/scanner.icl | 1 |
1 files changed, 1 insertions, 0 deletions
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 |