From d389e983ff4f5d5b01219220ee50f52090816d43 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 16 Dec 2014 02:31:44 -0400
Subject: Added some pseudo pattern-matching (only extracting simple data,
 without exploring inner structure or doing any testing).

---
 src/lang/lexer.clj | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

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

diff --git a/src/lang/lexer.clj b/src/lang/lexer.clj
index 93bdf51aa..870209503 100644
--- a/src/lang/lexer.clj
+++ b/src/lang/lexer.clj
@@ -74,12 +74,13 @@
 
 (def ^:private lex-string
   (exec [_ (lex-str "\"")
-         state &util/get-state
-         :let [_ (prn 'PRE state)]
+         ;; state &util/get-state
+         ;; :let [_ (prn 'PRE state)]
          token lex-string-body
          _ (lex-str "\"")
-         state &util/get-state
-         :let [_ (prn 'POST state)]]
+         ;; state &util/get-state
+         ;; :let [_ (prn 'POST state)]
+         ]
     (return [::string token])))
 
 (def ^:private lex-single-line-comment
@@ -106,7 +107,7 @@
          ;; :let [_ (prn 'COMMENT comment)]
          _ (lex-str ")#")
          ;; :let [_ (prn 'CLOSE)]
-         :let [_ (prn 'multi-comment comment)]
+         ;; :let [_ (prn 'multi-comment comment)]
          ]
     (return [::comment comment])))
 
-- 
cgit v1.2.3