Fix two minor issues found during review of allot_* patch

2006-10-31 06:00:43 +00:00 · 2006-10-31 06:00:43 +00:00 · f485a7ecd4
parent 415fe0a4a8
commit f485a7ecd4
2 changed files with 1 additions and 3 deletions
--- a/library/generic/tuple.factor
+++ b/library/generic/tuple.factor
@ -15,8 +15,6 @@ IN: kernel-internals
        2drop f
    ] if ;

-: (>tuple) ( array -- tuple ) (clone) tuple-type become ;
-
 IN: generic

 : class ( object -- class )
--- a/vm/math.c
+++ b/vm/math.c
@ -306,7 +306,7 @@ void primitive_bignum_divint(void)
 void primitive_bignum_divfloat(void)
 {
 	POP_BIGNUMS(x,y);
-	box_float(
+	box_double(
 		s48_bignum_to_double(x) /
 		s48_bignum_to_double(y));
 }