Clojureのあるスレッドから別のスレッドへコードを挿入する方法（REPLでのライブOpenGL編集用）？

Question

Clojureのあるスレッドから別のスレッドにコードを挿入する方法は？

私はLWJGLでClojureを使用しており、ゲームループを実装しています。 REPLを使ってインタラクティブに編集したい。その結果、私はループとすべてのOpenGL呼び出しをJava Runnablesを使用して別のスレッドに移動しました。私は外側からループを変更することでいくつかの成功を収めています：A.両方のスレッドにアクセス可能な原子を使用し、REPLスレッドからそれらを変更します。 （：color @globals）とB. Clojureコードをアトム(:code @globals)として格納し、REPLからそれを変更し、スレッドループ内で次のようにアクセスします：(eval (:code @globals))。

しかし、Clojureのシンボルはすべて1つのスレッドにバインドされています。私は2と2つを追加するメッセージを送信することができます(+ 2 2)、しかしそれ以上のことを得ることはありません。

LISPとして、Clojureはデータの利点としてコードを持っています。 REPLスレッドを使ってグラフィックス・スレッドを変更したいが、シンボル・バインディングの問題を回避する必要がある。

マイループ：

(while (not (GLFW/glfwWindowShouldClose window)) 
    (eval (:code @globals)) 
    (GL11/glClearColor (get (:color @globals) 0) (get (:color @globals) 1) 
      (get (:color @globals) 2) (get (:color @globals) 3)) 
    ...... 
) 

Answer 1

あなたが共有原子への値として、あなたの関数を渡すことができます。生のClojureコードをデータとして渡して評価する必要はありません。関数値を渡すだけでいいです：

(def my-function (atom (fn []))) 

(.start 
    (Thread. 
    (fn [] 
     (while true 
     (@my-function) 
     (Thread/sleep 1000))))) 

(reset! my-function 
    (fn [] (println "A"))) 

;; wait a few seconds  
;; prints 'A's with one second interval 


(reset! my-function 
    (fn [] (println "B"))) 

;; prints 'B's with one second interval