No more multi-line comments.

1 files changed, 1 insertions, 16 deletions

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>)]