X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fcompute.c;h=ff127e359f7e984f51075e9117700ddad54bf3c9;hb=18febf84744dc7ab4248542c2f88d91c01ef3fa1;hp=e299bd67f52f32100cc741cbfafdbb04c67e23cd;hpb=3a7fba81ceae5b049d0f7d671e9e3c3c43bbf703;p=pspp-builds.git

diff --git a/src/compute.c b/src/compute.c
index e299bd67..ff127e35 100644
--- a/src/compute.c
+++ b/src/compute.c
@@ -22,7 +22,6 @@
 #include <stdlib.h>
 #include "alloc.h"
 #include "approx.h"
-#include "cases.h"
 #include "command.h"
 #include "error.h"
 #include "expr.h"
@@ -398,21 +397,14 @@ lvalue_finalize (struct lvalue *lvalue,
     {
       compute->variable = dict_lookup_var (default_dict, lvalue->var_name);
       if (compute->variable == NULL)
-        compute->variable = dict_create_var (default_dict, lvalue->var_name,
-                                             0);
-      assert (compute->variable != NULL);
-
+        compute->variable = dict_create_var_assert (default_dict,
+                                                    lvalue->var_name, 0);
       compute->fv = compute->variable->fv;
       compute->width = compute->variable->width;
 
       /* Goofy behavior, but compatible: Turn off LEAVE. */
-      if (compute->variable->left
-          && dict_class_from_id (compute->variable->name) != DC_SCRATCH)
-        {
-          devector (compute->variable);
-          compute->variable->left = 0;
-          envector (compute->variable);
-        }
+      if (dict_class_from_id (compute->variable->name) != DC_SCRATCH)
+        compute->variable->reinit = 1;
     }
   else 
     {