[Aimmath-commit] AIM/WEB-INF/maple/aim SET.mpl,1.3,1.4

[<mo...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim
In directory sc8-pr-cvs1:/tmp/cvs-serv31426/WEB-INF/maple/aim

Modified Files:
	SET.mpl 
Log Message:
Updates Set/isEqual so it now calls aim/TestSet

Index: SET.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/SET.mpl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** SET.mpl	19 Sep 2003 04:11:15 -0000	1.3
--- SET.mpl	12 Jan 2004 05:59:02 -0000	1.4
***************
*** 86,95 ****
  `Package/Assign`(
   `SET/isEqual`::boolean,
!  "Returns true if the set represented by SET @A@ equals the set represented by SET @B@ (order of elements doesn't matter).",
   proc(A::{SET,set},B::{SET,set})
      local a,b;
      a:=`if`(type(A,SET),A['toSet'],A);
      b:=`if`(type(B,SET),B['toSet'],B); 
!     evalb(a=b);
   end
  ):
--- 86,100 ----
  `Package/Assign`(
   `SET/isEqual`::boolean,
!  "Returns true if the set represented by SET @A@ equals the set represented by SET @B@ (order of elements doesn't matter). It uses #aim/TestSet# to do the comparison. An optional 3rd argument is a comparison function that is passed along to #`aim/TestSet`# as it's third argument.",
   proc(A::{SET,set},B::{SET,set})
      local a,b;
      a:=`if`(type(A,SET),A['toSet'],A);
      b:=`if`(type(B,SET),B['toSet'],B); 
! #    evalb(a=b);
!     if nargs=3 then 
!       `aim/TestSet`(a,b,args[3]);
!     else 
!       `aim/TestSet`(a,b);
!     fi
   end
  ):