aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpieter1999-10-25 15:02:30 +0000
committerpieter1999-10-25 15:02:30 +0000
commite5225ff9bca5de88f610fa1a5bb4820ec41ecb65 (patch)
tree1e00cf05970d5f4c25be750a977c65fc604c4f62
parentchanged the CommandLoop back into the original version (diff)
end of comment repaired to allow **/
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@29 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
-rw-r--r--frontend/scanner.icl1
1 files changed, 1 insertions, 0 deletions
diff --git a/frontend/scanner.icl b/frontend/scanner.icl
index c54952f..1d579da 100644
--- a/frontend/scanner.icl
+++ b/frontend/scanner.icl
@@ -382,6 +382,7 @@ ScanComment input
# (eof2, c2, input) = ReadChar input
| eof2 = (Yes "end of file encountered inside comment", input)
| c2 == '/' = (No, input)
+ | c2 == '*' = ScanComment (charBack input)
= ScanComment input
| otherwise = ScanComment input