--* From PETEB%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Tue Apr 12 19:25:45 1994
--* Received: from yktvmh.watson.ibm.com by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/920123)
--*           id AA19593; Tue, 12 Apr 1994 19:25:45 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5282; Tue, 12 Apr 94 19:25:15 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.PETEB.NOTE.VAGENT2.1103.Apr.12.19:25:14.-0400>
--*           for asbugs@watson; Tue, 12 Apr 94 19:25:15 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 1101; Tue, 12 Apr 1994 19:25:14 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 12 Apr 94 19:25:14 EDT
--* Received: from radical.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA72694; Tue, 12 Apr 1994 19:21:03 -0400
--* Received: by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA18465; Tue, 12 Apr 1994 19:20:56 -0400
--* Date: Tue, 12 Apr 1994 19:20:56 -0400
--* From: pab@radical.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9404122320.AA18465@radical.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [3] finds 2 identical meanings for set!, and error msg is broken(2 bugs) [ltov.as][34.5]

--@ Fixed  by:  PI   Thu May 19 12:03:59 EDT 1994 
--@ Tested by:  none 
--@ Summary:    no more a bug 


#library LLib  "lang.aso"
#library AxLib "axclique.aso"
import from AxLib
import from LLib

R==>_#1
MoreSetOps(R: Ring): with {
	lstof:  R -> AssociationList (R, R);
} == add {
#if 0
	ltov(l: List R): Table(R, R) == {
		import from R;	
		import from Table (R, R), List R;
		tab: Table (R, R)    := empty();
		while not empty? l repeat {
			tab (first l) := first l + 1;
		}
		tab
	}
#endif
	lstof(x: R): AssociationList(R, R) == {
		import from AssociationList(R, R);
		import from R;
		lst :AssociationList(R, R) := empty();
		set!(lst,x, x+1);
		lst;
	}	

}

--matrix
--segment
#if 0
	

#endif