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.