/* Destroys the casereader. */
static void
-input_program_casereader_destroy (struct casereader *reader UNUSED, void *inp_)
+input_program_casereader_destroy (struct casereader *reader, void *inp_)
{
struct input_program_pgm *inp = inp_;
if (inp->restart == TRNS_ERROR)
goto error;
}
- e = expr_parse (lexer, ds, EXPR_NUMBER);
+ e = expr_parse (lexer, NULL, ds, VAL_NUMERIC);
if (!e)
goto error;
}