Changeset c585b86 in tol

Timestamp:

Feb 24, 2011, 5:19:28 PM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

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

Children:

600038a

Parents:

c31ee19

Message:

Fixes #995

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

File:

• tol/btol/set_type/setgra.cpp (modified) (2 diffs)

tol/btol/set_type/setgra.cpp

@@ -1527 +1527 @@
 //--------------------------------------------------------------------
 {
+  BList* result   = NIL;
+  BSet& orig = Set(Arg(1));
+  if(orig.Card()==0) { return; }
+  else if(orig.Card()==1)
+  {
+    BUserSet* cl = NewSet("","Class 1",orig.ToList(),
+                          NIL, BSet::Generic);
+    result = NCons(cl);
+    contens_.RobStruct(result,NIL,BSet::Generic);
+    return;
+  }
+  BSet sorted = orig;
   BCode&  code    = Code(Arg(2));
-  BList* result   = NIL;
   BList* aux      = NIL;
   BList* classLst = NIL;
@@ -1537 +1548 @@
   if(relationType == "partial order")
   {
-    BSet sorted = Set(Arg(1));
     BInt m = 1;
-    if(sorted.Card()<=1)
-    {
-      BUserSet* cl = NewSet("","Class 1",sorted.ToList(),
-                            NIL, BSet::Generic);
-      result = NCons(cl);
-      contens_.RobStruct(result,NIL,BSet::Generic);
-      return;
-    }
   //Std(Out()+"\nClassifing by "+Code(Arg(2))->Name()+ " criterium");
     if(!sorted.Sort(code))