--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Thu May 20 19:39:07 1993
--* Received: from yktvmv2.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA17820; Thu, 20 May 1993 19:39:07 -0400
--* X-External-Networks: yes
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 9773; Thu, 20 May 93 19:39:40 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SANTAS.NOTE.YKTVMV.2815.May.20.19:39:38.-0400>
--*           for asbugs@watson; Thu, 20 May 93 19:39:39 -0400
--* Received: from bernina.ethz.ch by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Thu, 20 May 93 19:39:37 EDT
--* Received: from neptune by bernina.ethz.ch with SMTP inbound id <15434-0@bernina.ethz.ch>; Fri, 21 May 1993 01:39:28 +0200
--* From: Philip Santas <santas@inf.ethz.ch>
--* Received: from rutishauser.inf.ethz.ch (rutishauser-gw.inf.ethz.ch) by neptune id AA15383; Fri, 21 May 93 01:39:21 +0200
--* Date: Fri, 21 May 93 01:39:19 +0200
--* Message-Id: <9305202339.AA28639@rutishauser.inf.ethz.ch>
--* Received: from ru7.inf.ethz.ch.rutishauser by rutishauser.inf.ethz.ch id AA28639; Fri, 21 May 93 01:39:19 +0200
--* To: asbugs@watson.ibm.com
--* Subject: records
--* Cc: bronstein

--@ Fixed  by: SMW Sat Oct 09 15:32:56 1993
--@ Tested by: n/a
--@ Summary:   Repaired by previous fixes




Problems with records. The compiler finds multiple meanings
for the following program.
Philip

-------------------mm4.as----------------------
#include "aslib.as"

SI ==> SingleInteger
import SI

M: with
      g: %->Bit
   == add

       S ==> Record(a: SI, b: SI, c: L)
       import S

       Rep ==> Record(s: List S)
       import Rep

       C ==> Record(a: SingleInteger, b: SingleInteger)
       import C
       p: List C == [[1,0],[0,1]]
------------------------------------------------