allow reader conditional as metadata entry

carocad · Aug 29, 2020 · 1c51356 · 1c51356
1 parent 3726d56
commit 1c51356
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/src/Clojure.g4 b/src/Clojure.g4
@@ -80,7 +80,7 @@ metadata: ((metadata_entry | deprecated_metadata_entry) ignore*)+
           | var_quote
           );
 
-metadata_entry: '^' ignore* ( map | symbol | string | keyword | macro_keyword );
+metadata_entry: '^' ignore* ( map | symbol | string | keyword | macro_keyword | conditional);
 
 /**
  * According to https://github.com/clojure/clojure-site/blob/7493bdb10222719923519bfd6d2699a26677ee82/content/guides/weird_characters.adoc#-and----metadata
@@ -89,7 +89,7 @@ metadata_entry: '^' ignore* ( map | symbol | string | keyword | macro_keyword );
  * In order to support roundtrip of parser rules it is required to exactly identify the
  * character used which would not be possible with something like '#'? '^'
  */
-deprecated_metadata_entry: '#^' ignore* ( map | symbol | string | keyword | macro_keyword );
+deprecated_metadata_entry: '#^' ignore* ( map | symbol | string | keyword | macro_keyword | conditional);
 
 backtick: '`' ignore* form;
 

diff --git a/test/parcera/test_cases.cljc b/test/parcera/test_cases.cljc
@@ -275,6 +275,9 @@
     (valid? input)
     (roundtrip input))
   (let [input "(meta ^::hello @(atom {}))"]
+    (valid? input)
+    (roundtrip input))
+  (let [input "(meta ^#?(:clj ::hello :cljs ::world) {})"]
     (valid? input)
     (roundtrip input)))