diff --git a/library/generic/tuple.factor b/library/generic/tuple.factor index d72f30b8ba..d109b510a8 100644 --- 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 ) diff --git a/vm/math.c b/vm/math.c index 003f9e9f78..2e88fde7e7 100644 --- 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)); }