Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1604:b1af16cdc659 1605:48eed6cf2be7
431 431
432 fun hasSpaceLine () = 432 fun hasSpaceLine () =
433 case inputCommentableLine inf of 433 case inputCommentableLine inf of
434 Content s => s = "debug" orelse s = "profile" 434 Content s => s = "debug" orelse s = "profile"
435 orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () 435 orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine ()
436 | _ => false 436 | EndOfFile => false
437 | OnlyComment => hasSpaceLine ()
437 438
438 val hasBlankLine = hasSpaceLine () 439 val hasBlankLine = hasSpaceLine ()
439 440
440 val inf = (TextIO.closeIn inf; opener ()) 441 val inf = (TextIO.closeIn inf; opener ())
441 442