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