assert (arg->isCons ());
while (arg && ! mlenv->breaksym ()) {
if (arg->car ()) {
-#ifdef DEBUG
-// mlenv->logSexp (arg->car ());
-#endif /* DEBUG */
ans = eval (arg->car (), mlenv);
if (mlenv->breaksym ())
return mlenv->breakval ();
mlenv->mlPool->resetProg ();
while (arg && ! mlenv->breaksym ()) {
if (arg->car () && arg->car ()->isCons ()) {
-#ifdef DEBUG
-// mlenv->logSexp (arg->car ());
-#endif /* DEBUG */
ans = eval (arg->car (), mlenv);
if (mlenv->breaksym ()) {
mlenv->setBreak (NULL, NULL);
throw (uErrorWrongNumber);
}
} else {
-// goto Bp1;
delete kw;
throw (uQ2 + *u + uQ2 + uErrorBadParam);
}
nextNode (list);
kw->setVar (name, mlTrue);
} else {
-// goto Bp1;
delete kw;
throw (uQ2 + *u + uQ2 + uErrorBadParam);
}
#endif /* DEBUG */
if (filename.size () > 0) {
int k1, k2;
-// v = to_ustring (parts.size ());
k2 = parts.size ();
fix (name);
-// insert (filearg, name, v);
parts.push_back (part (b, x));
fix (filename);
k1 = insert (iarg, name, filePart_osSafe (filename));