In timefns, call natnump only for non-fixnums

* src/timefns.c (decode_time_components): Call Fnatnump only
for non-fixnums, as we need to special-case 0 anyway.

(cherry picked from commit 2fb7bb41bee5e39391c9abc8013bcef39782e88d)

diff --git a/src/timefns.c b/src/timefns.c
index ba1ba10a8099ff2e79d87b5377d2d8d79b4357d0..45a0930f8a874eeee953146b82583215c90f7ce1 100644 (file)
--- a/src/timefns.c
+++ b/src/timefns.c
@@ -895,7 +895,7 @@ decode_time_components (enum timeform form,
 
     case TIMEFORM_TICKS_HZ:
       if (! (INTEGERP (high)
-            && !NILP (Fnatnump (low)) && !BASE_EQ (low, make_fixnum (0))))
+            && (FIXNUMP (low) ? 0 < XFIXNUM (low) : !NILP (Fnatnump (low)))))
        return (struct err_time) { .err = EINVAL };
       ticks = high;
       hz = low;