projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
simplify weighting
[pspp]
/
src
/
language
/
stats
/
quick-cluster.c
diff --git
a/src/language/stats/quick-cluster.c
b/src/language/stats/quick-cluster.c
index 9dd07f591b33bdef5635ec62e408d809c98a12db..0cd08d02a9268224436bac93339ffc876c9669a7 100644
(file)
--- a/
src/language/stats/quick-cluster.c
+++ b/
src/language/stats/quick-cluster.c
@@
-931,14
+931,9
@@
quick_cluster_parse (struct lexer *lexer, struct qc *qc)
else if (lex_match_id (lexer, "CONVERGE"))
{
if (lex_force_match (lexer, T_LPAREN) &&
else if (lex_match_id (lexer, "CONVERGE"))
{
if (lex_force_match (lexer, T_LPAREN) &&
- lex_force_num
(lexer
))
+ lex_force_num
_range_open (lexer, "CONVERGE", 0, DBL_MAX
))
{
qc->epsilon = lex_number (lexer);
{
qc->epsilon = lex_number (lexer);
- if (qc->epsilon <= 0)
- {
- lex_error (lexer, _("The convergence criterion must be positive"));
- return false;
- }
lex_get (lexer);
if (!lex_force_match (lexer, T_RPAREN))
return false;
lex_get (lexer);
if (!lex_force_match (lexer, T_RPAREN))
return false;