From 24dd6fcd97da2f322f31876de0126334722148d3 Mon Sep 17 00:00:00 2001 From: Peter Stephenson Date: Wed, 18 Dec 2002 16:56:26 +0000 Subject: 18013: Handle test of (( float == 0.0)) properly --- Src/builtin.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Src/builtin.c') diff --git a/Src/builtin.c b/Src/builtin.c index cb7c82052..b175bcae9 100644 --- a/Src/builtin.c +++ b/Src/builtin.c @@ -4097,13 +4097,14 @@ bin_ttyctl(char *name, char **argv, char *ops, int func) int bin_let(char *name, char **argv, char *ops, int func) { - zlong val = 0; + mnumber val = zero_mnumber; while (*argv) - val = mathevali(*argv++); + val = matheval(*argv++); /* Errors in math evaluation in let are non-fatal. */ errflag = 0; - return !val; + /* should test for fabs(val.u.d) < epsilon? */ + return (val.type == MN_INTEGER) ? val.u.l == 0 : val.u.d == 0.0; } /* umask command. umask may be specified as octal digits, or in the * -- cgit 1.4.1