exnMessage returns text without Message

Kostirya <[email protected]> Tue, 16 Aug 2016 17:24:01 +0300
Newsgroups gmane.comp.lang.ml.mlton.user
Message-ID <CAG+QnTd5yeE0WMfQ65CztgznxBBy0GWSNOSxVS4Keptd7kTbPA@mail.gmail.com>
Hello.
Probably, there is a bug: exMessage returns only exnName without Message.

> cat foo_exc.sml
exception Foo of string
fun foo () = raise Foo "foo msg"
val _ = foo () handle exc => print ("Raised an exception: " ^ exnMessage
exc ^ ".\n")

I expect to get:
Raised an exception: Foo "foo msg".

By I got:

> mlton foo_exc.sml && ./foo_exc
Raised an exception: Foo.

> mlton
MLton 20130715 (built Sun May  8 19:16:42 UTC 2016 on bsd)

And last git version of mlton have this error.

Best. Nick.

------------------------------------------------------------------------------

_______________________________________________
MLton-user mailing list
[email protected]; [email protected]
https://lists.sourceforge.net/lists/listinfo/mlton-user