added qf_is_decimal for testing numbers without using tcl catch