xpressn.c, fix `truth' for ternary_fcn()

0.0 is `false', everything else is `true'
This commit is contained in:
rlar 2013-11-01 20:15:21 +01:00
parent 589ded417a
commit 0a42a19b02
1 changed files with 3 additions and 3 deletions

View File

@ -40,9 +40,9 @@ extern long dynsubst; /* see inpcom.c */
static double
ternary_fcn(int conditional, double if_value, double else_value)
ternary_fcn(double conditional, double if_value, double else_value)
{
if (conditional)
if (conditional != 0.0)
return if_value;
else
return else_value;
@ -1219,7 +1219,7 @@ formula(tdico *dico, const char *s, const char *s_end, bool *perror)
state = S_atom;
if (fu > 0) {
if ((fu == 18))
u = ternary_fcn((int) v, w, u);
u = ternary_fcn(v, w, u);
else if ((fu == 20))
u = agauss(v, w, u);
else if ((fu == 22))