From 8ad6f8917ffa7b6f160799c875dc4b201d6236f9 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Sat, 28 Feb 1998 00:53:08 +0100
Subject: [PATCH] allowed transpose to take ({})
Rev: lib/modules/Array.pmod:1.15
---
lib/modules/Array.pmod | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lib/modules/Array.pmod b/lib/modules/Array.pmod
index 5071232df1..381d3b96f9 100644
--- a/lib/modules/Array.pmod
+++ b/lib/modules/Array.pmod
@@ -182,9 +182,10 @@ array columns(array x, array ind)
array transpose(array x)
{
- array ret=allocate(sizeof(x[0]));
- for(int e=0;e<sizeof(x[0]);e++) ret[e]=column(x,e);
- return ret;
+ if (!sizeof(x)) return x;
+ array ret=allocate(sizeof(x[0]));
+ for(int e=0;e<sizeof(x[0]);e++) ret[e]=column(x,e);
+ return ret;
}
// diff3, complement to diff (alpha stage)
--
GitLab