projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sat Dec 27 16:16:49 2003 Ben Pfaff <blp@gnu.org>
[pspp-builds.git]
/
src
/
loop.c
diff --git
a/src/loop.c
b/src/loop.c
index 1ccd1a5631f69faab42ba0452c1d17f0565e27b4..c8715bcad149ca1539f678648c951ea7df8e0426 100644
(file)
--- a/
src/loop.c
+++ b/
src/loop.c
@@
-192,7
+192,7
@@
internal_cmd_loop (void)
/* Parse indexing clause. */
if (token == T_ID && lex_look_ahead () == '=')
{
/* Parse indexing clause. */
if (token == T_ID && lex_look_ahead () == '=')
{
- struct variable *v =
find_variable (
tokid);
+ struct variable *v =
dict_lookup_var (default_dict,
tokid);
two->flags |= LPC_INDEX;
two->flags |= LPC_INDEX;
@@
-252,10
+252,10
@@
internal_cmd_loop (void)
/* Find variable; create if necessary. */
if (name[0])
{
/* Find variable; create if necessary. */
if (name[0])
{
- two->index =
find_variable (
name);
+ two->index =
dict_lookup_var (default_dict,
name);
if (!two->index)
{
if (!two->index)
{
- two->index =
force_create_variable (&default_dict, name, NUMERIC
, 0);
+ two->index =
dict_create_var (default_dict, name
, 0);
#if DEBUGGING
envector (two->index);
#endif
#if DEBUGGING
envector (two->index);
#endif