diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-01-26 15:26:12 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-01-26 15:26:12 -0500 |
| commit | e0a8e775a4c1e12debb2a3fa458007340685dc9d (patch) | |
| tree | ed45e466a53dc18a1c772e2bdaad2e5f7ac8025b /src/errormsg.sml | |
| parent | 485f8c00cc43334ba7bb429a830eb3b651ff92f6 (diff) | |
Elaborating cons and decls
Diffstat (limited to 'src/errormsg.sml')
| -rw-r--r-- | src/errormsg.sml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/errormsg.sml b/src/errormsg.sml index 0f5b9b61..e816b9a2 100644 --- a/src/errormsg.sml +++ b/src/errormsg.sml @@ -43,6 +43,12 @@ fun posToString {line, char} = fun spanToString {file, first, last} = String.concat [file, ":", posToString first, "-", posToString last] +val dummyPos = {line = 0, + char = 0} +val dummySpan = {file = "", + first = dummyPos, + last = dummyPos} + val file = ref "" val numLines = ref 1 |