Unprotect All and Subsets..

rocky · rocky · commit 84a9d7a78aeb · 2021-05-04T18:33:58.000-04:00
These are prerequisites for having Combinatorica V2.0 to load without
given errors.

Combinatorica v2.0 (the version that is on par with the latest book) is
starting to work, although testing shows it is not as good as v0.9 yet.
diff --git a/mathics/builtin/combinatorial.py b/mathics/builtin/combinatorial.py
@@ -454,6 +454,7 @@ class Subsets(Builtin):
      = {}
     """
 
+    attributes = ("Unprotected",)
     rules = {
         "Subsets[list_ , Pattern[n,_?ListQ|All|DirectedInfinity[1]], spec_]": "Take[Subsets[list, n], spec]",
     }
diff --git a/mathics/builtin/lists.py b/mathics/builtin/lists.py
@@ -379,10 +379,11 @@ def apply(self, expr, evaluation):
 class All(Predefined):
     """
     <dl>
-    <dt>'All'
-        <dd>is a possible value for 'Span' and 'Quiet'.
+      <dt>'All'
+      <dd>is a possible value for 'Span' and 'Quiet'.
     </dl>
     """
+    attributes = ("Unprotected",)
 
     pass
 

Original file line number	Diff line number	Diff line change
`@@ -454,6 +454,7 @@ class Subsets(Builtin):`
`454`	`454`	`= {}`
`455`	`455`	`"""`
`456`	`456`
	`457`	`+ attributes = ("Unprotected",)`
`457`	`458`	`rules = {`
`458`	`459`	`"Subsets[list_ , Pattern[n,_?ListQ\|All\|DirectedInfinity[1]], spec_]": "Take[Subsets[list, n], spec]",`
`459`	`460`	`}`