 
 ; --------------------------------------------
 
-(defn fwd [actx ch-key m]
-  (act fwd actx
-       (areq fwd (ch-key m) m)))
+(defn fwd-put [actx ch-key m]
+  (act fwd-put actx (aput fwd-put (ch-key m) m)))
+
+(defn fwd-req [actx ch-key m]
+  (act fwd-req actx (areq fwd-req (ch-key m) m)))
 
 ; --------------------------------------------
 


(def rq-handlers
  {"authenticate" rq-authenticate
   "lane-state" #(fwd %1 :lane-state-ch %2)
   "realms-list" #(fwd %1 :lane-state-ch %2)
   "add" cbfg.world.base/example-add
   "sub" cbfg.world.base/example-add
   "count" cbfg.world.base/example-count

    "lane-state"
    [lane-state (assoc m :status :ok :value lane-state)]
    "realms-list"
    (do (fwd-put actx :server-state-ch
                 (assoc m :realm (:realm lane-state) :user (:user lane-state)))
        [lane-state nil])
    nil))

