diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-02-28 15:46:41 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-02-28 15:46:41 -0500 |
| commit | ddc694f14352fa69557be02913fe9c3daeec13b0 (patch) | |
| tree | 4aeca801868850579ec9ac59cefcf4a5ed6bf25f /src/compiler.sml | |
| parent | 703c91af7525838dff97f88245bf7482745e771e (diff) | |
Fix parsing of space-free .urp directives; use 'class' for 'c*' tags
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 f0313c8b..63b28fb7 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -292,7 +292,8 @@ fun parseUrp' accLibs fname = fun hasSpaceLine () = case TextIO.inputLine inf of NONE => false - | SOME s => CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () + | SOME s => s = "debug\n" orelse s = "profile\n" + orelse CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () val hasBlankLine = hasSpaceLine () |