Set precedence of TEST keyword to be the same as ->

We'll be changing its behavior so that it acts in a similar fashion,
i.e., we'll use it to define a nullary function, so it makes sense for
them to have the same precedence.

M2/Macaulay2/d/binding.d

@@ -227,6 +227,7 @@ bumpPrecedence();
      export RightArrowW := binaryright("->",arrowop); export RightArrowS := makeKeyword(RightArrowW);
      export DoubleArrowS := makeKeyword(binaryright("=>"));
      export GreaterGreaterS := makeKeyword(binaryright(">>"));
+     export TestS := makeKeyword(unaryword("TEST"));
 bumpPrecedence();
      whenW = token("when"); makeKeyword(whenW);
      ofW = token("of"); makeKeyword(ofW);
@@ -311,7 +312,6 @@ bumpPrecedence();
      export elapsedTimeS := special("elapsedTime",unaryop,precSpace,wide);
      export elapsedTimingS := special("elapsedTiming",unaryop,precSpace,wide);
      export shieldS := special("shield",unaryop,precSpace,wide);
-     export TestS := special("TEST",unaryop,precSpace,wide);
      export throwS := special("throw",nunaryop,precSpace,wide);
      export returnS := special("return",nunaryop,precSpace,wide);
      export breakS := special("break",nunaryop,precSpace,wide);