Fixed procedure execution in GUI.

[pspp-builds.git] / src / data / procedure.c

diff --git a/src/data/procedure.c b/src/data/procedure.c
index 0741b1cc944ce479b6214aba0933d624cb8611c8..14b2ccdfe6e948adae6acb177ab30f7f3f2c6689 100644 (file)
--- a/src/data/procedure.c
+++ b/src/data/procedure.c
@@ -700,6 +700,12 @@ dataset_dict (const struct dataset *ds)
   return ds->dict;
 }
 
+const struct casereader *
+dataset_source (const struct dataset *ds)
+{
+  return ds->source;
+}
+
 void
 dataset_need_lag (struct dataset *ds, int n_before)
 {