 
     @result))
 
-(defn ^:no-doc -remove-orphaned-signals
-  "Orphaned signal has no actions and no orphaned child signals."
+(defn ^:no-doc -remove-dangling-signals
+  "Dangling signal has no actions and no dangling child signals."
   [model]
   (let [kept-ids (-signals-with-actions model)
         signal-events (-> model ::debugger :signal-events)

                                (let [saved-model (-> new-state
                                                      (assoc-in [::debugger :highlighted-signal-id] nil)
                                                      (update-in [::debugger :action-events] #(filter :for-replay? %))
                                                      -remove-orphaned-signals)]
                                  (assoc! storage storage-key saved-model)))))

                 ; now start app as usual

           ::vacuum
           (-> model
               (update-in [::debugger :action-events] #(filter :enabled? %))
               -remove-dangling-signals)

           ::clear
           (-> model
