From 56411c36fefadab9d186ee612e81fbbef7540b8c Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@autani.com>
Date: Thu, 2 Jun 2022 14:58:36 -0400
Subject: [PATCH] Bug fixes

---
 test-bn.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-bn.scm b/test-bn.scm
index a6f6865a..1638c91f 100644
--- a/test-bn.scm
+++ b/test-bn.scm
@@ -2,7 +2,7 @@
 
  (define-c bn-test
    "(void *data, int argc, closure _, object k, object fx)"
-   " object bn = Cyc_int2bignum2(data, fx);
+   " object bn = Cyc_int2bignum2(data, obj_obj2int(fx));
      return_closcall1(data, k, bn); ")
 
  (repl)