/* parse.c 725d */ XDef readxdef(XDefreader dr) { Par p; if (dr->pl == NULL) { dr->pl = readparlist(dr->r, 1, dr->prompts); if (dr->pl == NULL) return NULL; } p = dr->pl->hd; dr->pl = dr->pl->tl; return parse(p); }
/* * <parse.c>= */ Def readdef(Defreader dr) { Par p; if (dr->pl == NULL) { dr->pl = readparlist(dr->r, 0, dr->doprompt); if (dr->pl == NULL) return NULL; } p = dr->pl->hd; dr->pl = dr->pl->tl; return parse(p); }