sack works

[pspp] / src / language / commands / inpt-pgm.c

diff --git a/src/language/commands/inpt-pgm.c b/src/language/commands/inpt-pgm.c
index b5bd041d79ffa2d81201113333688743c3080c5b..f6beea1f54aae6244f4aad80767440e8a0f0eb96 100644 (file)
--- a/src/language/commands/inpt-pgm.c
+++ b/src/language/commands/inpt-pgm.c
@@ -149,7 +149,7 @@ cmd_input_program (struct lexer *lexer, struct dataset *ds)
       msg_location_destroy (location);
       return CMD_FAILURE;
     }
-  if (dict_get_next_value_idx (dataset_dict (inp->ds)) == 0)
+  if (dict_get_n_vars (dataset_dict (inp->ds)) == 0)
     {
       msg_at (SE, location, _("Input program did not create any variables."));
       destroy_input_program (inp);