diff options
author | Eduardo Julian | 2014-12-16 02:31:44 -0400 |
---|---|---|
committer | Eduardo Julian | 2014-12-16 02:31:44 -0400 |
commit | d389e983ff4f5d5b01219220ee50f52090816d43 (patch) | |
tree | 88f0bed6c0d804b2b703159f06f7c31a2e759439 /src/lang/lexer.clj | |
parent | 70fe9266ce1ccb4fe964b831a7ab61f0d6262111 (diff) |
Added some pseudo pattern-matching (only extracting simple data, without exploring inner structure or doing any testing).
Diffstat (limited to '')
-rw-r--r-- | src/lang/lexer.clj | 11 |
1 files changed, 6 insertions, 5 deletions
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]))) |