diff --git a/.dir-locals.el b/.dir-locals.el new file mode 100644 index 0000000..d160020 --- /dev/null +++ b/.dir-locals.el @@ -0,0 +1,2 @@ +((clojure-mode + (cider-clojure-cli-aliases . "test-common:1.10"))) diff --git a/src/rewrite_clj/node/reader_macro.cljc b/src/rewrite_clj/node/reader_macro.cljc index 5a0e944..19f1465 100644 --- a/src/rewrite_clj/node/reader_macro.cljc +++ b/src/rewrite_clj/node/reader_macro.cljc @@ -44,7 +44,7 @@ (node-type [_node] :reader-macro) (printable-only?[_node] false) (sexpr* [node _opts] - (list 'read-string (node/string node))) + (list `read-string (node/string node))) (length [_node] (inc (node/sum-lengths children))) (string [_node] diff --git a/test/rewrite_clj/node_test.cljc b/test/rewrite_clj/node_test.cljc index f571e18..1bf57ee 100644 --- a/test/rewrite_clj/node_test.cljc +++ b/test/rewrite_clj/node_test.cljc @@ -220,3 +220,6 @@ (is (= expected-node-type (proto/node-type n))) (is (= expected-str (n/string n))) (is (= expected-sexpr (n/sexpr n)))))) + +(deftest reader-macro-sexpr-test + (is (= `read-string (first (n/sexpr (p/parse-string "#booya 32"))))))