diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-11-20 20:46:28 -0500 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-11-20 20:46:28 -0500 |
commit | 759685cc2bf4e61bdd0521d1a74d4cf64f123769 (patch) | |
tree | fbf218d6692f16d2e7623a4ed805dc7870f363e3 /src/compiler.sml | |
parent | 278fc3905209da5c2f86ea49b6e2cf75e8e8cd34 (diff) |
Fix bug in previous change
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index a296bfbb..75e98364 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -433,7 +433,8 @@ fun parseUrp' accLibs fname = case inputCommentableLine inf of Content s => s = "debug" orelse s = "profile" orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () - | _ => false + | EndOfFile => false + | OnlyComment => hasSpaceLine () val hasBlankLine = hasSpaceLine () |