From bb5d5d3efed8491ce2159abdf3da2114db91e5eb Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 13 Feb 2019 06:31:27 -0800
Subject: num: reduce duplicate code.

* lib.c (num): Use num_fast instead of an expression that is
identical to the body of that inline function.
---
 lib.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib.c b/lib.c
index e837939b..8697fdc0 100644
--- a/lib.c
+++ b/lib.c
@@ -3173,9 +3173,7 @@ val improper_plist_to_alist(val list, val boolean_keys)
 
 val num(cnum n)
 {
-  if (n >= NUM_MIN && n <= NUM_MAX)
-    return coerce(val, (n << TAG_SHIFT) | TAG_NUM);
-  return bignum(n);
+  return (n >= NUM_MIN && n <= NUM_MAX) ? num_fast(n) : bignum(n);
 }
 
 cnum c_num(val n)
-- 
cgit v1.2.3