-- RefCounts.mesa -- Last Edited by: Paul Rovner, February 24, 1983 1:32 pm RefCounts: DEFINITIONS = BEGIN GetCount: PROC[ref: LONG POINTER--loopholed REF--] RETURNS[count: NAT, markedAsOnStack: BOOL]; -- BEWARE Enumerate is UNSAFE. See Paul Rovner before using it. Enumerate: PROC[proc: PROC[ref: REF ANY, count: NAT, markedAsOnStack: BOOL] RETURNS[stop: BOOL]] RETURNS[ref: REF ANY, count: NAT, markedAsOnStack: BOOL]; -- (ref = NIL) => not stopped END. ÊŽ˜Jš6ÏcLœ Ïk œžœÏnœžœžœžœžœžœžœ@Ÿ œžœžœžœžœ žœžœžœžœ žœžœžœ žœžœ œžœ˜—…—˜