Remove setup(SymbolClosure,unop); identical to setupop

Macaulay2 · Sep 7, 2024 · 9a31b71 · 9a31b71
1 parent 857b262
commit 9a31b71
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/M2/Macaulay2/d/actors.d b/M2/Macaulay2/d/actors.d
@@ -810,7 +810,7 @@ export notFun(rhs:Code):Expr := (
      else if a == True then False
      else if a == False then True
      else unarymethod(a,notS));
-setup(notS,notFun);
+setupop(notS,notFun);
 EqualEqualEqualfun(lhs:Code,rhs:Code):Expr := (
     -- # typical value: symbol ===, Thing, Thing, Boolean
      x := eval(lhs);

diff --git a/M2/Macaulay2/d/common.d b/M2/Macaulay2/d/common.d
@@ -69,10 +69,6 @@ export setup(word:Word,fun1:unop,fun2:binop):void := (
      e.unary = fun1;
      e.binary = fun2;
      );
-export setup(e:SymbolClosure,fn:unop):void := (
-     unopNameList = unopNameListCell(fn,e.symbol,unopNameList);
-     e.symbol.unary = fn;
-     );
 export setuppostfix(e:SymbolClosure,fn:unop):void := (
      unopNameList = unopNameListCell(fn,e.symbol,unopNameList);
      e.symbol.postfix = fn;