From 6c896325238b63b6fc09f774968be6da0b9c89c1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 22 Aug 2018 17:40:33 -0400
Subject: No more multi-line comments.

---
 luxc/src/lux/lexer.clj | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

(limited to 'luxc/src')

diff --git a/luxc/src/lux/lexer.clj b/luxc/src/lux/lexer.clj
index 0a09c0619..9e1414b7f 100644
--- a/luxc/src/lux/lexer.clj
+++ b/luxc/src/lux/lexer.clj
@@ -106,26 +106,11 @@
   (|do [[meta _ white-space] (&reader/read-regex #"^(\s+|$)")]
     (return (&/T [meta ($White_Space white-space)]))))
 
-(def ^:private lex-single-line-comment
+(def ^:private lex-comment
   (|do [_ (&reader/read-text "##")
         [meta _ comment] (&reader/read-regex #"^(.*)$")]
     (return (&/T [meta ($Comment comment)]))))
 
-(defn- lex-multi-line-comment [_]
-  (|do [_ (&reader/read-text "#(")
-        [meta comment] (&/try-all% (&/|list (|do [[meta comment] (&reader/read-regex+ #"(?is)^(?!#\()((?!\)#).)*")]
-                                              (return (&/T [meta comment])))
-                                            (|do [[meta pre] (&reader/read-regex+ #"(?is)^((?!#\().)*")
-                                                  [_ ($Comment inner)] (lex-multi-line-comment nil)
-                                                  [_ post] (&reader/read-regex+ #"(?is)^((?!\)#).)*")]
-                                              (return (&/T [meta (str pre "#(" inner ")#" post)])))))
-        _ (&reader/read-text ")#")]
-    (return (&/T [meta ($Comment comment)]))))
-
-(def ^:private lex-comment
-  (&/try-all% (&/|list lex-single-line-comment
-                       (lex-multi-line-comment nil))))
-
 (do-template [<name> <tag> <regex>]
   (def <name>
     (|do [[meta _ token] (&reader/read-regex <regex>)]
-- 
cgit v1.2.3