Changeset cf6d1c6 in tol

Timestamp:

Jun 10, 2010, 10:56:02 AM (16 years ago)

Author:

Javier Portugal <javipor@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

a052615

Parents:

ab2f694

Message:

Cambio SetSum por BinGroup("+",tclSet)

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@2221 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tol/stdlib/general/alg_name/algebragui.tol (modified) (3 diffs)

tol/stdlib/general/alg_name/algebragui.tol

@@ -24 +24 @@
   );
   Set tclSet         = tclSetPre << algDef->TclSet;
-  TxtListTcl(SetSum(tclSet))
+  TxtListTcl(BinGroup("+",tclSet))
 };
 //////////////////////////////////////////////////////////////////////////////
@@ -200 +200 @@
 { 
   Set tclSet = AlgDefGetReg(codMag, algDef)->TclSet;
-  Text If(IsEmpty(tclSet), "",  TxtListTcl(SetSum(tclSet)))
+  Text If(IsEmpty(tclSet), "",  TxtListTcl(BinGroup("+",tclSet)))
 };
 //////////////////////////////////////////////////////////////////////////////
@@ -221 +221 @@
   Text If(IsEmpty(node), "", {
     Set tclSet = node[1]->TclSet;
-    If(IsEmpty(tclSet), "", TxtListTcl(SetSum(tclSet)))
+    If(IsEmpty(tclSet), "", TxtListTcl(BinGroup("+",tclSet)))
   })
 };