1 (* Copyright (C
) 1999-2006 Henry Cejtin
, Matthew Fluet
, Suresh
2 * Jagannathan
, and Stephen Weeks
.
4 * MLton is released under a BSD
-style license
.
5 * See the file MLton
-LICENSE for details
.
8 structure Escape
: ESCAPE
=
13 fun escape (e
, a
) = raise (e a
)
15 fun new (f
: 'a t
-> 'a
): 'a
=
17 in f E
handle E a
=> a