# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1321839988 18000
# Node ID 48eed6cf2be7eea8705244669a094574d81829ce
# Parent  b1af16cdc659d8012ddf05076a2b1cb2ad7dd620
Fix bug in previous change

diff -r b1af16cdc659 -r 48eed6cf2be7 src/compiler.sml
--- a/src/compiler.sml	Sun Nov 20 19:22:57 2011 -0500
+++ b/src/compiler.sml	Sun Nov 20 20:46:28 2011 -0500
@@ -433,7 +433,8 @@
                         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 -r b1af16cdc659 -r 48eed6cf2be7 tests/comment.ur
--- a/tests/comment.ur	Sun Nov 20 19:22:57 2011 -0500
+++ b/tests/comment.ur	Sun Nov 20 20:46:28 2011 -0500
@@ -0,0 +1,1 @@
+fun main () : transaction page = return <xml>Hi</xml>