diff options
author | Eduardo Julian | 2014-12-26 14:36:22 -0400 |
---|---|---|
committer | Eduardo Julian | 2014-12-26 14:36:22 -0400 |
commit | 6eebd55535254e82230ce0ad11f7eb8b7907a9ca (patch) | |
tree | 94d41dcbd2ce7e548faf26a6193e46d4727201a4 /src/lang/analyser.clj | |
parent | db3fecf46f602320b48e7ce82ee770a46bba7ba6 (diff) |
Added string testing & multi-branching to pattern-matching.
Diffstat (limited to 'src/lang/analyser.clj')
-rw-r--r-- | src/lang/analyser.clj | 5 |
1 files changed, 5 insertions, 0 deletions
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 |