(* Copyright (C) 1989, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) (* File: Delay.i3 *) (* Last Modified On Thu Nov 2 17:33:21 1989 By muller *) (* Modified On Tue Aug 1 14:21:31 1989 By kalsow *) INTERFACE Delay; TYPE Closure = UNTRACED OBJECT METHODS apply () END; VAR pending: BOOLEAN; PROCEDURE Push (c: Closure); PROCEDURE FinishUp (); PROCEDURE Initialize (); END Delay.