generate message about parameter count

diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index b0b68e1..185c8f6 100644 (file)
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -229,6 +229,7 @@ WalkProcedure(procedure)
        /* Generate code for this procedure
        */
        C_pro_narg(procscope->sc_name);
+       C_ms_par(procedure->df_type->prc_nbpar);
        TmpOpen(procscope);
        DoPriority();
        DoFilename();           /* ??? only when this procedure is exported? */