* arith.c (plus): Optimization: use num_fast when

result is in the fixnum range.
Implemented FLNUM cases, except for adding a FLNUM
to BGNUM.
(minus, mul): Use num_fast when the cnum value is in the fixnum range.
(int_flo): New function.

* eval.c (eval_init): Register int-flo intrinsic.

* lib.c (c_flo): New function.

* lib.h (TYPE_SHIFT, TYPE_PAIR): New macros, carried over
from the lazy strings branch.
(c_flo, int_flo): Declared.

1 files changed, 6 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 306d1118..21b87fed 100644
--- a/lib.c
+++ b/lib.c
@@ -1135,6 +1135,12 @@ val flo(double n)
   return obj;
 }
 
+double c_flo(val num)
+{
+  type_check(num, FLNUM);
+  return num->fl.n;
+}
+
 val fixnump(val num)
 {
   return (is_num(num)) ? t : nil;