From 08db2e08fd57e1a281f72907b5a98a46f8ef27d3 Mon Sep 17 00:00:00 2001
From: Thomas Guillermo Albers Raviola <thomas@thomaslabs.org>
Date: Mon, 3 Aug 2026 15:42:18 +0200
Subject: Use list decomposition in mul_series

---
 series.mac | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'series.mac')

diff --git a/series.mac b/series.mac
index f757e4c..9dd233c 100644
--- a/series.mac
+++ b/series.mac
@@ -144,10 +144,7 @@ mul_series(factors, max_order) := block(
   stack : make_array(any, nfactors),
 
   /* Compute table size */
-  block([pair],
-    pair : __table_size(factors),
-    t_min : pair[1],
-    t_max : pair[2]),
+  [t_min, t_max] : __table_size(factors),
   len : abs(t_max - t_min) + 1,
 
   /* Allocate table for terms */
-- 
cgit v1.3