From 4daf7b149622a16a2271630a19f0833702477a86 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Sat, 16 Aug 2025 03:25:45 +0300
Subject: feat: vector concatenation

---
 src/sexp/step.rs | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'src/sexp/step.rs')

diff --git a/src/sexp/step.rs b/src/sexp/step.rs
index 9077401..59b201c 100644
--- a/src/sexp/step.rs
+++ b/src/sexp/step.rs
@@ -441,6 +441,27 @@ impl SExp {
 	    },
 
 
+	    // Concatenation
+	    SCons(op, l) if *op == Atom(Concat) => {
+		let ls = l.parts();
+		let firstvec = ls.get(0).unwrap();
+		let secondvec = ls.get(1).unwrap();
+		let firstvec = match firstvec {
+		    SCons(a, b) if **a == Atom(Vector) => *b.clone(),
+		    t => t.clone(),
+		};
+		let secondvec = match secondvec {
+		    SCons(a, b) if **a == Atom(Vector) => *b.clone(),
+		    t => t.clone(),
+		};
+		let mut res = Atom(Nil);
+		for exp in firstvec.parts().into_iter().chain(secondvec.parts()).rev() {
+		    res = scons(exp, res);
+		}
+		Ok(scons(Vector, res))
+	    },
+
+
             // Arithmetic
 
 
-- 
cgit v1.2.3