Fix typo in fixnum* primitive

diff --git a/library/test/math/integer.factor b/library/test/math/integer.factor
index ba69dab1329be433a6933312511a407491dd0891..97d5f83fb48cb1b61d041766102a253883364428 100644 (file)
--- a/library/test/math/integer.factor
+++ b/library/test/math/integer.factor
@@ -103,3 +103,5 @@ unit-test
 [ t ] [ 0 zero? ] unit-test
 [ f ] [ 30 zero? ] unit-test
 [ t ] [ 0 >bignum zero? ] unit-test
+
+[ 4294967280 ] [ 268435455 >fixnum 16 fixnum* ] unit-test

diff --git a/vm/math.c b/vm/math.c
index d2825f93ec050dc1cec158d2b0806e2dea762a30..7ae1e22593f423441495ef494fc3ec719661345a 100644 (file)
--- a/vm/math.c
+++ b/vm/math.c
@@ -81,7 +81,7 @@ void primitive_fixnum_multiply(void)
                        F_ARRAY *bx = s48_fixnum_to_bignum(x);
                        REGISTER_BIGNUM(bx);
                        F_ARRAY *by = s48_fixnum_to_bignum(y);
-                       UNREGISTER_BIGNUM(by);
+                       UNREGISTER_BIGNUM(bx);
                        dpush(tag_bignum(s48_bignum_multiply(bx,by)));
                }
        }