Mercurial > urweb

diff src/compiler.sml @ 1605:48eed6cf2be7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug in previous change
author Adam Chlipala <adam@chlipala.net>
date Sun, 20 Nov 2011 20:46:28 -0500
parents 06958d5a7088
children f4453e2402d0
line wrap: on
line diff
--- 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 ()