Prohibit LAG following TEMPORARY. This both matches SPSS behavior and

[pspp] / src / procedure.c

diff --git a/src/procedure.c b/src/procedure.c
index 725e8ec5846cfe5a9a8b7f5321febf67357663fa..67f22c5c0dfca5a0e0442feb0a8888973bd222a1 100644 (file)
--- a/src/procedure.c
+++ b/src/procedure.c
@@ -40,7 +40,6 @@
 #include <language/control/control-stack.h>
 #include <libpspp/alloc.h>
 #include <libpspp/message.h>
-#include <libpspp/message.h>
 #include <libpspp/misc.h>
 #include <libpspp/str.h>
 #include <output/manager.h>
@@ -227,7 +226,7 @@ create_trns_case (struct ccase *trns_case, struct dictionary *dict)
       union value *value = case_data_rw (trns_case, v->fv);
 
       if (v->type == NUMERIC)
-        value->f = v->reinit ? 0.0 : SYSMIS;
+        value->f = v->leave ? 0.0 : SYSMIS;
       else
         memset (value->s, ' ', v->width);
     }
@@ -428,7 +427,7 @@ clear_case (struct ccase *c)
   for (i = 0; i < var_cnt; i++) 
     {
       struct variable *v = dict_get_var (default_dict, i);
-      if (v->reinit) 
+      if (!v->leave) 
         {
           if (v->type == NUMERIC)
             case_data_rw (c, v->fv)->f = SYSMIS;