Podpisywanie funkcji za pomocą makr Clojure

Question

Co ciekawsze, że cokolwiek innego (ale z oczekiwaniem, że może to być czasami przydatna sztuczka do dostrajania wydajności), możliwe jest użycie makr Clojure do "wstawiania" istniejącej funkcji?

tj Chciałbym móc zrobić coś takiego:

(defn my-function [a b] (+ a b)) 

(defn add-3-numbers [a b c] 
    (inline (my-function 
    a 
    (inline (my-function 
     b 
     c))))) 

i mieć go produkować (w czasie kompilacji) dokładnie taką samą funkcję, jak gdybym inlined dodatki siebie, takich jak:

(defn add-3-numbers [a b c] 
    (+ a (+ b c))) 

Answer 1

W przypadku, gdy nie wiadomo, można zdefiniować za pomocą funkcji inlined definline

(doc definline) 
------------------------- 
clojure.core/definline 
([name & decl]) 
Macro 
    Experimental - like defmacro, except defines a named function whose 
    body is the expansion, calls to which may be expanded inline as if 
    it were a macro. Cannot be used with variadic (&) args. 
nil 

sprawdzenie również źródłem,

(source definline) 
------------------------- 
(defmacro definline 
    [name & decl] 
    (let [[pre-args [args expr]] (split-with (comp not vector?) decl)] 
    `(do 
     (defn ~name ~@pre-args ~args ~(apply (eval (list `fn args expr)) args)) 
     (alter-meta! (var ~name) assoc :inline (fn ~name ~args ~expr)) 
     (var ~name)))) 

definline prostu definiuje var z meta-danych {:inline (fn definition)}. Więc chociaż nie jest to dokładnie to, o co prosiłeś, ale możesz ponownie powiązać var ​​z nowymi metadanymi, aby uzyskać zorientowane zachowanie.