shithub: mc

Info  •  Files  •  Log  •  Branches

Fix compilation.

    Not sure how that crept in.

--- 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, args[i], bind, nbind);

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

     switch (exprop(n)) {

         case Oucon:

             uc = uconresolve(st, n);

@@ -1025,7 +1025,7 @@

         case Nmatch:

             bound = NULL;

             nbound = 0;

-            inferpat(st, n->match.pat, &bound, &nbound);

+            inferpat(st, n->match.pat, NULL, &bound, &nbound);

             addbindings(st, n->match.block, bound, nbound);

             infernode(st, n->match.block, ret, sawret);

             break;