ダイナミックは、のまっすぐこれを取得してみましょうマクロ

Question

[OK]を内部に具体化の一環として形をしましょう以下のように見えるScriptプロトコルのインスタンスであることを：

：

(defprotocol Script 
    (run [this model])) 

アイデアはdefscriptへの最初の引数はmodelに対応キーにバインドする必要のあるシンボルのリストであるということで

(.run (defscript [a b] (println a)) {:a 1}) ;; yields 1 

modelパラメータを使用しようとすると、マクロ展開時に、それはただの記号だから、私は常に、ハンガーノックてるように私は、効果的にこのような効果を生み出すことができます任意のコードを考え出すことはできません。

(defmacro invoke- 
    [params model body] 
    (let [p (flatten (map (fn [x] [x (model (keyword x))]) params))] 
    `(let [~@p] 
     ~body))) 

(defmacro defscript 
    [params & body] 
    `(reify Script 
    (run [~'this ~'model] 
     (invoke- ~params ~'model ~@body)))) 

invoke-直接呼び出す場合は正常に動作します：

(invoke- [a] {:a 1} (println a)) ;; prints 1 

しかし modelとして defscript内で使用されるとき、それは動作しませんが正しく展開することができません。

(.run (defscript [a] (println a)) {:a 1}) ;; prints nil 

どうすればこのポイントを超えて一緒に接着することができますか？それは基本的に、あなたの引数ベクトルが結合非構造のショートカットであると思われ

Answer 1

：

(defscript [a b] body) -> (reify Script (run [this {:keys [a b]}] body)) 

そのようにそれがあるべきように、モデルは、実行時に非構造されます。