m3quake/src/QPromise.m3


   Copyright (c) 2011 Generation Capital, Ltd.
   All rights reserved.


   Permission to use, copy, modify, and distribute this software and
   its documentation for any purpose and without fee is hereby
   granted, provided that the above copyright notice appear in all
   copies.  Generation Capital, Ltd. makes no representations about
   the suitability of this software for any purpose. It is provided
   as is without express or implied warranty.


   Author : Mika Nystrom <mika@alum.mit.edu>



MODULE QPromise;

REVEAL Empty = T BRANDED Brand OBJECT OVERRIDES fulfil := FulfilNothing END;

PROCEDURE FulfilNothing(<*UNUSED*>p : Empty) : ExitCode =
  BEGIN RETURN 0 END FulfilNothing;

BEGIN END QPromise.