Fix wrapper lifecycle bugs

Author: vlaaad

src/cljfx/dev.clj

@@ -241,8 +241,9 @@
 (load "dev/validation")
 
 (defn wrap-type->lifecycle [type->lifecycle]
-  (fn [type]
-    (wrap-lifecycle type type->lifecycle)))
+  (let [f (memoize wrap-lifecycle)]
+    (fn [type]
+      (f type type->lifecycle))))
 
 (def type->lifecycle
   (wrap-type->lifecycle (some-fn fx/keyword->lifecycle fx/fn->lifecycle)))

src/cljfx/dev/validation.clj

@@ -86,5 +86,4 @@
               opts (assoc opts ::stack stack)]
           (try
             (lifecycle/delete lifecycle component opts)
-            (catch Exception ex (re-throw-with-stack ex stack))))
-        (lifecycle/delete lifecycle component opts)))))
+            (catch Exception ex (re-throw-with-stack ex stack))))))))