X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Faggregate.c;h=42f330d5d21a64b141a963b82ce1bbcae49a7c3e;hb=51356a3a547f953fdfe710aae94b72ac9e40e562;hp=ba0650937d93f29758b648524192fb1deaed59fe;hpb=0a18c32ad55044070812325dd5e569259fac6a37;p=pspp

diff --git a/src/language/stats/aggregate.c b/src/language/stats/aggregate.c
index ba0650937d..42f330d5d2 100644
--- a/src/language/stats/aggregate.c
+++ b/src/language/stats/aggregate.c
@@ -391,7 +391,8 @@ parse_aggregate_functions (struct lexer *lexer, const struct dictionary *dict,
 	  size_t n_dest_prev = n_dest;
 
 	  if (!parse_DATA_LIST_vars (lexer, &dest, &n_dest,
-                                     PV_APPEND | PV_SINGLE | PV_NO_SCRATCH))
+                                     (PV_APPEND | PV_SINGLE | PV_NO_SCRATCH
+                                      | PV_NO_DUPLICATE)))
 	    goto error;
 
 	  /* Assign empty labels. */
@@ -711,8 +712,8 @@ agr_destroy (struct agr_proc *agr)
       else if (iter->function == SD)
         moments1_destroy (iter->moments);
 
-      var_destroy (iter->subject);
-      var_destroy (iter->weight);
+      dict_destroy_internal_var (iter->subject);
+      dict_destroy_internal_var (iter->weight);
 
       free (iter);
     }
@@ -1105,10 +1106,10 @@ initialize_aggregate_info (struct agr_proc *agr, const struct ccase *input)
             proto = caseproto_add_width (proto, 0);
 
 	    if ( ! iter->subject)
-	      iter->subject = var_create_internal (0, 0);
+	      iter->subject = dict_create_internal_var (0, 0);
 
 	    if ( ! iter->weight)
-	      iter->weight = var_create_internal (1, 0);
+	      iter->weight = dict_create_internal_var (1, 0);
 
             subcase_init_var (&ordering, iter->subject, SC_ASCEND);
 	    iter->writer = sort_create_writer (&ordering, proto);