From f12b4dfb12e5ac94b39f5b16fc14cc0f606c3c97 Mon Sep 17 00:00:00 2001
From: Max Horn <max@quendi.de>
Date: Thu, 28 Aug 2014 19:14:28 +0200
Subject: [PATCH] Make _SI_Matbigintmat work for mutable bigintmat

---
 src/matrix.cc | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/matrix.cc b/src/matrix.cc
index 6e84f19..7119f02 100644
--- a/src/matrix.cc
+++ b/src/matrix.cc
@@ -83,8 +83,8 @@ Obj Func_SI_bigintmat(Obj self, Obj m)
 // TODO: get rid of _SI_Matbigintmat and use SI_ToGAP instead ?
 Obj Func_SI_Matbigintmat(Obj self, Obj im)
 {
-    // TODO: This function is untested! add test cases!!!
-    if (!ISSINGOBJ(SINGTYPE_BIGINTMAT_IMM,im)) {
+    if (!(ISSINGOBJ(SINGTYPE_BIGINTMAT_IMM,im) ||
+          ISSINGOBJ(SINGTYPE_BIGINTMAT,im))) {
         ErrorQuit("im must be a singular bigintmat", 0L, 0L);
         return Fail;
     }