Copyright (C) 1994, Digital Equipment Corp. MODULE; IMPORT RTWeakRef; PROCEDURE WeakRef FromRef (r: REFANY; p: CleanUpProc := NIL): T = BEGIN RETURN RTWeakRef.WeakRefFromRef(r, p); END FromRef; PROCEDUREToRef (w: T): REFANY = BEGIN RETURN RTWeakRef.WeakRefToRef(w); END ToRef; BEGIN END WeakRef.