From 87da6cf667a507504d857fc03789ec0aa58f2a53 Mon Sep 17 00:00:00 2001
From: Thomas Guillermo Albers Raviola <thomas@thomaslabs.org>
Date: Mon, 20 Jul 2026 16:14:06 +0200
Subject: Fix error on atomic factor

---
 series.mac | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'series.mac')

diff --git a/series.mac b/series.mac
index 5617a1e..fd143f4 100644
--- a/series.mac
+++ b/series.mac
@@ -96,7 +96,7 @@ __fill_term_table(table, factors, t_min, t_max, len) := block(
     /* Initialize table row with 0s */
     for j : 0 thru len-1 do table[i, j] : 0,
     /**/
-    if is(op(factors[i+1])="+") then (
+    if not atom(factors[i+1]) and op(factors[i+1])="+" then (
       for term in args(factors[i+1]) do block(
         [j, n],
         n : lopow(term, r),
-- 
cgit v1.3