From 2e4a8e535ea7fcd65eabadaf424a56ef1297be61 Mon Sep 17 00:00:00 2001
From: Thomas Guillermo Albers Raviola <thomas@thomaslabs.org>
Date: Tue, 28 Jul 2026 19:58:44 +0200
Subject: Add mappend

---
 tensors.mac | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tensors.mac')

diff --git a/tensors.mac b/tensors.mac
index e8e5a4f..6e9cf8d 100644
--- a/tensors.mac
+++ b/tensors.mac
@@ -20,3 +20,5 @@ cdiff(func, coord) := diff(func, ct_coords[coord])$
 box_op(func) := (
   expand(contr(ug[μ,ν] * cdiff(cdiff(func, ν), μ), [μ,ν])
     - contr(ug[μ,ν] * mcs[μ,ν,ρ] * cdiff(func, ρ), [μ,ν,ρ])))$
+
+mappend(f, list) := apply(append, map(f, list));
-- 
cgit v1.3