diff options
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tkbltVecCmd.C | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkbltVecCmd.C b/generic/tkbltVecCmd.C index 8603d54..7bcfd4f 100644 --- a/generic/tkbltVecCmd.C +++ b/generic/tkbltVecCmd.C @@ -162,11 +162,11 @@ static int Blt_ExprDoubleFromObj(Tcl_Interp* interp, Tcl_Obj *objPtr, if (Tcl_GetDoubleFromObj((Tcl_Interp *)NULL, objPtr, valuePtr) == TCL_OK) return TCL_OK; - // Interpret the empty string as NaN + // Interpret the empty string "" and "NaN" as NaN. int length; char *string; string = Tcl_GetStringFromObj(objPtr, &length); - if (length == 0) { + if (length == 0 || (length == 3 && strcmp(string, "NaN") == 0)) { *valuePtr = NAN; return TCL_OK; } |