[Aldor-l] Debug statements

[Pippijn van Steenhoven]

Also, there seems to be a broken use of foamIter in genssa.c:

                        foamIter(succ->code, stmtp, { // opening
parenthesis, opening bracket
                                Foam    rhs;
                                FoamTag tag = foamTag(*stmtp);
                                /* Stop if this isn't a phi function */
                                if ((tag != FOAM_Set) && (tag != FOAM_Def))
                                        break;
                                rhs = (*stmtp)->foamDef.rhs); //
closing parenthesis before closing bracket
                                if (!foamIsPhiFunction(rhs) break; //
opening parenthesis is never closed

                                /* Rename the first argument */
                                index = rhs->foamBCall.argv[0]->foamLoc.index;
                                nindex = car(stack[index]);
                                foamFree(rhs->foamBCall.argv[0]);
                                rhs->foamBCall.argv[0] = foamNewLoc(nindex);
                        }); // closing bracket after closing parenthesis

I can make up some meaning using the formatting, but it's just broken
so I would like to know what this used to be or what it was meant to
be.

Pippijn