identifiers may not contain two consecutive underscores, and a fix

diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c
index a8b0b09..bc7fb0d 100644 (file)
--- a/lang/m2/comp/walk.c
+++ b/lang/m2/comp/walk.c
@@ -229,9 +229,9 @@ WalkProcedure(procedure)
        /* Generate code for this procedure
        */
        C_pro_narg(procscope->sc_name);
+       TmpOpen(procscope);
        DoPriority();
        DoFilename();           /* ??? only when this procedure is exported? */
-       TmpOpen(procscope);
 
        func_type = tp = RemoveEqual(ResultType(procedure->df_type));