projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Oops - revert change that shouldn't have been applied.
[pspp]
/
src
/
repeat.c
diff --git
a/src/repeat.c
b/src/repeat.c
index 8b66a7122a936e8d4eacc216f887fcd3d0793ee6..bf89fedecd50f0b5e131ed3c2141d814e59fa5f1 100644
(file)
--- a/
src/repeat.c
+++ b/
src/repeat.c
@@
-18,12
+18,12
@@
02111-1307, USA. */
#include <config.h>
02111-1307, USA. */
#include <config.h>
+#include "repeat.h"
#include <assert.h>
#include <ctype.h>
#include <math.h>
#include <stdlib.h>
#include "alloc.h"
#include <assert.h>
#include <ctype.h>
#include <math.h>
#include <stdlib.h>
#include "alloc.h"
-#include "cases.h"
#include "command.h"
#include "error.h"
#include "getline.h"
#include "command.h"
#include "error.h"
#include "getline.h"
@@
-33,8
+33,6
@@
#include "str.h"
#include "var.h"
#include "str.h"
#include "var.h"
-#undef DEBUGGING
-/*#define DEBUGGING 1*/
#include "debug-print.h"
/* Describes one DO REPEAT macro. */
#include "debug-print.h"
/* Describes one DO REPEAT macro. */
@@
-330,14
+328,7
@@
internal_cmd_do_repeat (void)
{
/* Note that if the variable already exists there is no
harm done. */
{
/* Note that if the variable already exists there is no
harm done. */
- struct variable *v = create_variable (&default_dict,
- iter->replacement[i],
- NUMERIC, 0);
-
- /* If we created the variable then we need to initialize
- its observations to SYSMIS. */
- if (v)
- envector (v);
+ dict_create_var (default_dict, iter->replacement[i], 0);
}
}
}
}
}
}
@@
-515,7
+506,7
@@
cmd_end_repeat (void)
\f
/* Finds a DO REPEAT macro with name MACRO_NAME and returns the
appropriate subsitution if found, or NULL if not. */
\f
/* Finds a DO REPEAT macro with name MACRO_NAME and returns the
appropriate subsitution if found, or NULL if not. */
-char *
+
static
char *
find_DO_REPEAT_substitution (char *macro_name)
{
struct getl_script *s;
find_DO_REPEAT_substitution (char *macro_name)
{
struct getl_script *s;