From 313c044b4a878a425aaca6554576f5154ace8ff9 Mon Sep 17 00:00:00 2001
From: Joel Kronqvist <joel.kronqvist@iki.fi>
Date: Wed, 6 Aug 2025 16:23:18 +0300
Subject: Implemented let-bindings

---
 src/sexp/util.rs | 10 ++++++++++
 1 file changed, 10 insertions(+)

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

diff --git a/src/sexp/util.rs b/src/sexp/util.rs
index b3edf19..a28aaad 100644
--- a/src/sexp/util.rs
+++ b/src/sexp/util.rs
@@ -76,4 +76,14 @@ impl SExp {
             },
         }
     }
+
+    pub fn check_let(self) -> Option<(String, SExp)> {
+        match &(self.parts())[..] {
+            [l, n, v] if *l == Atom(Let) => match (n.clone(), v.clone()) {
+                (Atom(Var(name)), val) => Some((name, val)),
+                _ => None
+            },
+            _ => None
+        }
+    }
 }
-- 
cgit v1.2.3