2015-04-01 106 views

回答

1

在這裏你的答案 開始隊列

(ns my-project.name 
(:require [immutant.messaging :as msg])) 

(defn call-fn 
    [args] 
    (let [fun (ns-resolve "namespace where fun defined" (symbol (first args))) 
     params (rest args)] 
    (if (seq params) 
     (apply fun) 
     (fun)))) 

(msg/start "queue") 
(msg/respond "queue" (fn [args] (call-fn args))) 

調用隊列只是說

@(msg/request "queue" ["fun-name" params])