1 (* Copyright (C
) 2003-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
.
10 structure Weak
= Primitive
.MLton
.Weak
16 fun get (w
: 'a t
): 'a option
=
18 (* Need to
do the canGet after the get
. If you did the canGet first
,
19 * there could be a GC that invalidates the pointer between the