X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Froc.c;h=eae528a38a81c126b30c5ffa9a66b93212293011;hb=2fe0749f0892964767cefadb5fac1c9784e9df84;hp=3dff0407f8a301219cbbcee8ecaf6bc3d9ee1088;hpb=0840b3d295d4c734eba359f91039a506b15c815f;p=pspp-builds.git

diff --git a/src/language/stats/roc.c b/src/language/stats/roc.c
index 3dff0407..eae528a3 100644
--- a/src/language/stats/roc.c
+++ b/src/language/stats/roc.c
@@ -560,8 +560,7 @@ do_roc (struct cmd_roc *roc, struct casereader *input, struct dictionary *dict)
     struct caseproto *proto = caseproto_create ();
 
     struct subcase ordering;
-    struct variable *iv = var_create_internal (CUTPOINT);
-    subcase_init_var (&ordering, iv, SC_ASCEND);
+    subcase_init (&ordering, CUTPOINT, 0, SC_ASCEND);
 
 
     proto = caseproto_add_width (proto, 0); /* cutpoint */