1 fun test2 (str
: string) =
2 let open MLton
.Finalizable
4 in addFinalizer (x
, fn s
=> print (s ^
": finalizer\n"));
5 (fn () => (print
"invoking touch\n"; touch x
))
8 val _
= (print
"before test 4\n";
9 let val t
= test2
"test 4"
10 in print
"before GC 4a\n";
12 print
"after GC 4a\n";
14 print
"before GC 4b\n";