From 6eebd55535254e82230ce0ad11f7eb8b7907a9ca Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 26 Dec 2014 14:36:22 -0400
Subject: Added string testing & multi-branching to pattern-matching.

---
 src/lang/analyser.clj | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/lang/analyser.clj')

diff --git a/src/lang/analyser.clj b/src/lang/analyser.clj
index 64bdbac9b..72ea43e69 100644
--- a/src/lang/analyser.clj
+++ b/src/lang/analyser.clj
@@ -452,6 +452,11 @@
                                                                                                                             (assoc locals-map ?name ?local)
                                                                                                                             (conj =members (:form ?local))])
 
+                                                                                                                   [::&parser/string ?text]
+                                                                                                                   (return [?inner-num
+                                                                                                                            locals-map
+                                                                                                                            (conj =members [::match-text ?text])])
+
                                                                                                                    [::&parser/variant ?subtag ?submembers]
                                                                                                                    (let [num-submembers (count ?submembers)]
                                                                                                                      (with-anon-locals num-submembers
-- 
cgit v1.2.3