(roseus_bt) Always return failure on interrupted actions

Author: Affonso-Gui

roseus_bt/euslisp/nodes.l

@@ -170,7 +170,10 @@
         (ros::ros-info ";; Stashing current progress")
         (send thr :suspend)
         (when (send thr :is-done)
-          (send self :send-result (send thr :get-result)))
+          ;; interrupted actions always return failure
+          ;; `:get-result' must be called to free the thread
+          (send thr :get-result)
+          (send self :send-result nil))
         (when (send self :is-active)
           (send self :set-preempted)))))