Refactor reset-sub to be private to reset-all-subs

mtgred · Nov 12, 2023 · 2c1aa3b · 2c1aa3b
1 parent 5e40c9f
commit 2c1aa3b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/src/clj/game/core.clj b/src/clj/game/core.clj
@@ -519,7 +519,6 @@
    reset-all-ice
    reset-all-subs
    reset-all-subs!
-   reset-sub
    resolve-subroutine
    resolve-subroutine!
    resolve-unbroken-subs!

diff --git a/src/clj/game/core/ice.clj b/src/clj/game/core/ice.clj
@@ -218,14 +218,11 @@
   [state ice]
   (update! state :corp (dont-resolve-all-subroutines ice)))
 
-(defn reset-sub
-  [sub]
-  (dissoc sub :broken :fired :resolve))
-
 (defn reset-all-subs
   "Mark all broken/fired subroutines as unbroken/unfired"
   [ice]
-  (update ice :subroutines #(into [] (map reset-sub %))))
+  (letfn [(reset-sub [sub] (dissoc sub :broken :fired :resolve))]
+    (update ice :subroutines #(into [] (map reset-sub %)))))
 
 (defn reset-all-subs!
   "Marks all broken subroutines as unbroken, update!s state"