/* FIXME: figure out the *exact* conditions, not these really
lenient conditions. */
if (vfm_source == NULL
- || vfm_source == &vfm_memory_stream
- || vfm_source == &vfm_disk_stream
- || vfm_source == &sort_stream)
+ || case_source_is_class (vfm_source, &memory_source_class)
+ || case_source_is_class (vfm_source, &disk_source_class)
+ || case_source_is_class (vfm_source, &sort_source_class))
{
msg (SE, _("This command is not valid here since the current "
"input program does not access the inline file."));
/* We don't actually read from the inline file. The input procedure
is what reads from it. */
getl_prompt = GETL_PRPT_DATA;
- procedure (NULL, NULL, NULL);
+ procedure (NULL, NULL, NULL, NULL);
ext = inline_file->ext;