Question

以下是一个例子：

(defmacro aupdate-in [a i f & args]
  `(do
     (aset ~a ~i (~f (aget ~a ~i) ~@args))
     a))
(let [a (long-array [1 2 3 4])]
  (do
    (aupdate-in a 2 * 5)
    (pprint (vec a))))

这会出错：

CompilerException java.lang.RuntimeException: No such var: cina.fn-browser/a, compiling:(/Users/kaiyin/personal_config_bin_files/workspace/cina/src/cina/fn_browser.clj:20:16)

我可以修改一下并让它工作：

(defmacro aupdate-in [a i f & args]
  (list 'do
        (list 'aset a i
              (list* f
                     (list 'aget a i) args))))
(let [a (long-array [1 2 3 4])]
  (do 
    (aupdate-in a 2 * 5)
    (pprint (vec a))))

但所有list list*的东西看起来都很难看。有更好的解决方案吗？

Answer 1

您需要取消引用a，以便它引用传入的符号：

(defmacro aupdate-in [a i f & args]
  `(do
     (aset ~a ~i (~f (aget ~a ~i) ~@args))
     ~a))

确保let表单中的宏可以访问本地变量

1 个答案: