自托：改写的减法宏

Question

在bootstrap中，宏形式的`{{cljs.core/-}}`显然可以通过`{{_}}`访问，例如(_ 7 3)是可行的。

重现


cljs.user=> (require 'cljs.js)
nil
cljs.user=> (cljs.js/eval-str (cljs.js/empty-state)
  "(_ 7 3)" nil {:eval cljs.js/js-eval :context :expr} identity)
{:ns cljs.user, :value 4}

Answer 1

_Comment made by: slipset_

所以，在自托（至少）的情况下，改写的名称是可用的，例如您还可以看到`+`

cljs.user=> (_PLUS_ 4 4)
8


(in-ns 'cljs.js)
nil
cljs.js=> (compile-str (empty-state) "(+ 4 4)" nil identity)
{:value "((4) + (4));\n"}
cljs.js=> (compile-str (empty-state) "(_PLUS_ 4 4)" nil identity)
{:value "((4) + (4));\n"}
cljs.js=>


使用一个特殊的`ns-interns**`作为

(defn ns-interns**
  "Bootstrap only."
  [sym]
  (let [ns-obj (find-ns-obj sym)
        ns     (Namespace. ns-obj sym)]
    (letfn [(step [ret k]
             (let [var-sym (symbol k #_(demunge k))] ;; not demunging the key
              (assoc ret
                var-sym (Var. #(gobject/get ns-obj k)
                            (symbol (str sym) (str var-sym)) {:ns ns}))))]
      (reduce step {} (js-keys ns-obj)))))

你看到`-`存储在`_`下，例如在ns-object中的改写名称

cljs.core=> (get (ns-interns** 'cljs.core$macros) '_)
#'cljs.core$macros/_
cljs.core=>

Answer 2

_Comment made by: mfikes_

有趣的是，补丁对`{{cljs.core/-}}`有效，但如果我的理解正确，它似乎没有完全适用于在`{{cljs.user}}`中定义的新符号。


cljs.user=> (require 'cljs.js)
是
cljs.user=> (def st (cljs.js/empty-state))
'cljs.user/st
cljs.user=> (cljs.js/eval st '(def foo-bar 17) {:eval cljs.js/js-eval :context :expr} identity)
{:value 17}
cljs.user=> (cljs.js/eval st 'foo_bar {:eval cljs.js/js-eval :context :expr} identity)
警告：使用未声明的变数 cljs.user/foo_bar
{:value 17}

Answer 3

评论者：slipset

是的

`
cljs.user=> (def foo-bar 17)

'cljs.user/foo-bar

cljs.user=> foo_bar

        ^

警告：在第1行使用未声明的变数 cljs.user/foo_bar
17
cljs.user=>
`

现在不记得具体细节了，但我通过查找宏的处理路径来解决减号的问题。
据我所知，我需要查看解析常规符号的处理路径。

我想我需要查看解析常规符号的处理路径。

Answer 4

评论者：mfikes

0001-CLJS-1593-only-return-a-var-when-we-re-looking-for-a.patch fails {{script/test-self-parity}} (x)

特别是，你得到

警告：没有找到命名空间：cljs.inference-util，无法定位 cljs/inference_util.cljs，,cljs/inference_util.cljc 或提供 "cljs.inference-util" 的 JavaScript 源文件（请检查使用连字符的命名空间在 ClojureScript 文件名中应使用下划线）在第15行 src/test/cljs/cljs/inference_test.cljs 警告：在第15行 src/test/cljs/cljs/inference_test.cljs 使用未声明的变数 cljs.inference-util/truth_-not-called?

随后出现 {{无法读取未定义对象的属性 'truth__not_called_QMARK_' 错误，可能与减号的混洗有关。

Answer 5

参考：[https://clojure.atlassian.net/browse/CLJS-1593](https://clojure.atlassian.net/browse/CLJS-1593)（由 mfikes 报告）