Allow set differences for all visible lists

Author: d-torrance

M2/Macaulay2/m2/set.m2

@@ -110,8 +110,8 @@ intersect Set       := Set => {} >> o -> identity
 intersect(Set, Set) := Set => {} >> o -> (x,y) -> x*y
 
 Set - Set := Set => (x,y) -> applyPairs(x, (i,v) -> if not y#?i then (i,v))
-List - Set := List => (x,y) -> select(x, i -> not y#?i)
-Set - List := Set => (x,y) -> x - set y
+VisibleList - Set := List => (x,y) -> select(x, i -> not y#?i)
+Set - VisibleList := Set => (x,y) -> x - set y
 
 --
 sum Set := s -> sum toList s

M2/Macaulay2/packages/Macaulay2Doc/functions/set-doc.m2

@@ -105,8 +105,8 @@ document {
 
 document {
      Key => {(symbol -, Set, Set),
-	  (symbol -, Set, List),
-	  (symbol -, List, Set)},
+	  (symbol -, Set, VisibleList),
+	  (symbol -, VisibleList, Set)},
      Headline => "set difference",
      Usage => "x - y",
      Inputs => {