1 (* Access the current stack
in the heap via a MLton
.size object trace
. *)
2 val rt
: MLton
.Thread
.Runnable
.t option ref
= ref NONE
3 val rs
: int ref
= ref
0
7 val () = rs
:= MLton
.size rt
15 val () = rt
:= SOME (MLton
.Thread
.prepare (t
, ()))
21 val () = switcheroo ()
22 val _
= print (concat
["!rs > 0 = ", Bool.toString (!rs
> 0), "\n"])