Encapsulated the static data of procedure.[ch] into a single object, to be

[pspp-builds.git] / src / language / expressions / operations.def

diff --git a/src/language/expressions/operations.def b/src/language/expressions/operations.def
index fe3bc5de2fe88f357baee3e00d259eab152eb120..dbd5ce2b2e688a3ea8269acbd8de8fd4d199d94a 100644 (file)
--- a/src/language/expressions/operations.def
+++ b/src/language/expressions/operations.def
@@ -958,7 +958,7 @@ no_opt string operator STR_VAR ()
 
 no_opt perm_only function LAG (num_var v, pos_int n_before)
 {
-  struct ccase *c = lagged_case (n_before);
+  struct ccase *c = lagged_case (current_dataset, n_before);
   if (c != NULL)
     {
       double x = case_num (c, v->fv);
@@ -970,7 +970,7 @@ no_opt perm_only function LAG (num_var v, pos_int n_before)
 
 no_opt perm_only function LAG (num_var v)
 {
-  struct ccase *c = lagged_case (1);
+  struct ccase *c = lagged_case (current_dataset, 1);
   if (c != NULL)
     {
       double x = case_num (c, v->fv);
@@ -983,7 +983,7 @@ no_opt perm_only function LAG (num_var v)
 no_opt perm_only string function LAG (str_var v, pos_int n_before)
      expression e;
 {
-  struct ccase *c = lagged_case (n_before);
+  struct ccase *c = lagged_case (current_dataset, n_before);
   if (c != NULL)
     return copy_string (e, case_str (c, v->fv), v->width);
   else
@@ -993,7 +993,7 @@ no_opt perm_only string function LAG (str_var v, pos_int n_before)
 no_opt perm_only string function LAG (str_var v)
      expression e;
 {
-  struct ccase *c = lagged_case (1);
+  struct ccase *c = lagged_case (current_dataset, 1);
   if (c != NULL)
     return copy_string (e, case_str (c, v->fv), v->width);
   else