[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