(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)

(* Last modified on Tue Feb 11 21:20:25 PST 1992 by muller                   *)

GENERIC MODULE BagADT (Elt);

EXCEPTION
  AbstractObjectType;
  
<*FATAL AbstractObjectType *>

PROCEDURE new (self: T): T =
  BEGIN
    IF self = NIL THEN
       RAISE AbstractObjectType; END;
    RETURN self;
  END new;

BEGIN
END BagADT.