projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Replaced implementation of psppire-axis.
[pspp]
/
src
/
language
/
control
/
loop.c
diff --git
a/src/language/control/loop.c
b/src/language/control/loop.c
index c6309d42186fa814428d5ca8cb5016ebe4ee6003..40a33c11bbafc451adddb40f9529356ed12c6776 100644
(file)
--- a/
src/language/control/loop.c
+++ b/
src/language/control/loop.c
@@
-18,8
+18,6
@@
#include "control-stack.h"
#include "control-stack.h"
-#include <gsl/gsl_math.h>
-
#include <data/case.h>
#include <data/dictionary.h>
#include <data/procedure.h>
#include <data/case.h>
#include <data/dictionary.h>
#include <data/procedure.h>
@@
-323,8
+321,8
@@
loop_trns_proc (void *loop_, struct ccase *c, casenumber case_num)
case_data_rw (c, loop->index_var)->f = loop->cur;
/* Throw out pathological cases. */
case_data_rw (c, loop->index_var)->f = loop->cur;
/* Throw out pathological cases. */
- if (!
gsl_finite (loop->cur) || !gsl_
finite (loop->by)
- || !
gsl_
finite (loop->last)
+ if (!
isfinite (loop->cur) || !is
finite (loop->by)
+ || !
is
finite (loop->last)
|| loop->by == 0.0
|| (loop->by > 0.0 && loop->cur > loop->last)
|| (loop->by < 0.0 && loop->cur < loop->last))
|| loop->by == 0.0
|| (loop->by > 0.0 && loop->cur > loop->last)
|| (loop->by < 0.0 && loop->cur < loop->last))