diff options
author | Adam Chlipala <adamc@hcoop.net> | 2010-02-07 09:51:41 -0500 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2010-02-07 09:51:41 -0500 |
commit | 59beee018dead1f4221cf6ce0ee856eb5dd055d1 (patch) | |
tree | 6a0ee3f920ba55e37b9e3d33cf5726c9a3f5f9a9 /src/compiler.sml | |
parent | 2b0eaeecac17ab4bd6995a6a0eb504c58d48b776 (diff) |
Fix .urp parsing for real
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index cba385e2..ba80e37e 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -289,7 +289,7 @@ fun parseUrp' accLibs fname = fun hasSpaceLine () = case TextIO.inputLine inf of NONE => false - | SOME s => CharVector.exists Char.isSpace s orelse hasSpaceLine () + | SOME s => CharVector.exists (fn ch => ch = #" " orelse ch = #"\t") s orelse hasSpaceLine () val hasBlankLine = hasSpaceLine () |