shithub: mc

Info  •  Files  •  Log  •  Branches

Fix matching unions with arguments.

    Things work better without arguments swapped.

--- a/parse/infer.c

+++ b/parse/infer.c

@@ -673,7 +673,7 @@

     args = n->expr.args;

     for (i = 0; i < n->expr.nargs; i++)

         if (args[i]->type == Nexpr)

-            inferpat(st, val, args[i], bind, nbind);

+            inferpat(st, args[i], val, bind, nbind);

     switch (exprop(n)) {

         case Oucon:

             uc = uconresolve(st, n);