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 | 7c14fd970c1b6c4b3e51d39360cfe3138eb50f26 (patch) | |
| tree | fbf218d6692f16d2e7623a4ed805dc7870f363e3 | |
| parent | 7ed47fc3dcd34e96ce94c6d761a9d17e9f39721f (diff) | |
Fix bug in previous change
| -rw-r--r-- | src/compiler.sml | 3 | ||||
| -rw-r--r-- | tests/comment.ur | 1 |
2 files changed, 3 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 () diff --git a/tests/comment.ur b/tests/comment.ur index e69de29b..975fc277 100644 --- a/tests/comment.ur +++ b/tests/comment.ur @@ -0,0 +1 @@ +fun main () : transaction page = return <xml>Hi</xml> |