      (env/goal-map sas-problem))))
 
 (defn asplan-solution-name [sol]
-  (map second (filter #(= (first %) ::GreedyFire) (map env/action-name sol))))
+  (map second (filter #(= (first %) ::GreedyFire) sol)))
 
 (defn asplan-solution-pair-name [[sol rew]]
   [(asplan-solution-name sol) rew])


(defn current-child [s child-var-map p-var]
  (when-not (env/get-var s (free-var p-var))
    (some #(env/get-var s (parent-var p-var %))
          (child-var-map p-var))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Actions fn, actual env ;;;;;;;;;;;;;;;;;;;;;;;;;;;


                                     :let  [child (current-child s child-var-map nav)]
                                     :when (and child (not (env/get-var s (action-var child))))]
                                 [nav child])]
         (println "\n" s "\n" (first (:act-seq (meta s))))
;         (println "\n\n\n" s "\n"  aa-vars "\n"  aa-parent-edges "\n" na-tuples )
        (util/cond-let [x]
          ;; Greedy action -- all preconditions satisfied and not assigned elsewhere
          (some #(make-greedy-fire-action s %) aa-vars) 
