VM: bignum_to_fixnum_strict and an accompanying vm error in case the conversion fails

[factor.git] / vm / math.cpp

diff --git a/vm/math.cpp b/vm/math.cpp
index 8b99895e39fee401908758fb33b344621b16cf8a..71ba13b803bd95cd09699c1e917146fda0b54fb3 100644 (file)
--- a/vm/math.cpp
+++ b/vm/math.cpp
@@ -277,13 +277,13 @@ void factor_vm::primitive_bits_double() {
   ctx->push(allot_float(bits_double(to_unsigned_8(ctx->pop()))));
 }
 
-/* Cannot allocate */
+/* Allocates memory */
 fixnum factor_vm::to_fixnum(cell tagged) {
   switch (TAG(tagged)) {
     case FIXNUM_TYPE:
       return untag_fixnum(tagged);
     case BIGNUM_TYPE:
-      return bignum_to_fixnum(untag<bignum>(tagged));
+      return bignum_to_fixnum_strict(untag<bignum>(tagged));
     default:
       type_error(FIXNUM_TYPE, tagged);
       return 0; /* can't happen */