Use list decomposition in mul_series

1 files changed, 1 insertions, 4 deletions

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 */