X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fdfm.c;h=cec6234f982b94fa33f429c5c01208d54230a520;hb=14e7292894533c5491a774a2d749386362660812;hp=9905b6b3e25f8cc8c688a1bde3b268dbf2b61457;hpb=5906e30c29662d12594199e1652ba3a7e5670944;p=pspp-builds.git

diff --git a/src/dfm.c b/src/dfm.c
index 9905b6b3..cec6234f 100644
--- a/src/dfm.c
+++ b/src/dfm.c
@@ -650,9 +650,8 @@ cmd_begin_data (void)
   /* 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, &storage_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."));
@@ -669,7 +668,7 @@ cmd_begin_data (void)
   /* 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, NULL);
+  procedure (NULL, NULL);
 
   ext = inline_file->ext;