[MLton-devel] mlton: bug strangeness
Matthew Fluet
fluet@CS.Cornell.EDU
Tue, 10 Sep 2002 08:28:22 -0400 (EDT)
> a.sml:2.16-2.17 Error: pattern begins with infix identifier
> mlton: bug
>
> What is the second line about?
Looks like the cuplrit is mlton/elaborate/precedence-parse.fun:
fun ensureNONf ((e, f), p) =
let
val _ =
case f of
Fixval.Nonfix => ()
| _ =>
(Control.errorStr
(region e,
concat [name, " begins with infix identifier"])
; raise Fail "bug") (* FIXME *)
in
NONf (e, p)
end
I think you can drop the raise Fail "bug". The Control.errorStr flags
that an error occured, but we should be able to continue pretending the
identifier is non-fix.
-------------------------------------------------------
This sf.net email is sponsored by: OSDN - Tired of that same old
cell phone? Get a new here for FREE!
https://www.inphonic.com/r.asp?r=sourceforge1&refcode1=vs3390
_______________________________________________
MLton-devel mailing list
MLton-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mlton-devel