     (ASPlanEnv 
      (expand-initial-state (env/initial-state sas-problem) child-var-map (goal-action dtgs))
      (fn asplan-actions [s]
+      (if false ;(deadlocked? s child-var-map)
+        (do (println s) nil)
        (let [[aa-vars na-vars] (util/separate #(env/get-var s (action-var %)) vars)
              aa-parent-edges   (for [av aa-vars
                                       :let [pm (:precond-map (env/get-var s (action-var av)))]


          ;; Inactive top-down var -- activate it
          (first (map second na-tuples))
            (activation-actions s child-var-map x))));)
     (env/goal-map sas-problem)
     causal-graph dtgs child-var-map acyclic-succ-fn)))


     {(action-var evar) factored-primitive}
     reward)))


(defn make-set-parent-var-action [p-var c-var]
  (env/FactoredPrimitive 
