Fix Bombbot crash (#2296)

This commit is contained in:
ZedB0T
2023-02-28 14:39:57 -05:00
committed by GitHub
parent d6bd437ea1
commit 43da4088e6
3 changed files with 2 additions and 5 deletions
-1
View File
@@ -43259,7 +43259,6 @@
:size-assert #x59c
:flag-assert #xb90520059c
(:methods
(kill-prefer-falling () symbol :replace 73)
(explode () _type_ :state 178)
(bombbot-method-179 (_type_) none 179)
(bombbot-method-180 (_type_) none 180)
@@ -577,7 +577,6 @@
:size-assert #x59c
:flag-assert #xb90520059c
(:methods
(kill-prefer-falling () symbol :replace 73)
(explode () _type_ :state 178)
(bombbot-method-179 (_type_) none 179)
(bombbot-method-180 (_type_) none 180)
@@ -1308,7 +1307,7 @@
(cond
((zero? (-> obj hit-points))
(if (not (and (-> obj next-state) (= (-> obj next-state name) 'die)))
((method-of-object obj kill-prefer-falling))
(kill-prefer-falling obj)
)
)
(else
+1 -2
View File
@@ -623,7 +623,6 @@
:size-assert #x59c
:flag-assert #xb90520059c
(:methods
(kill-prefer-falling () symbol :replace 73)
(explode () _type_ :state 178)
(bombbot-method-179 (_type_) none 179)
(bombbot-method-180 (_type_) none 180)
@@ -1437,7 +1436,7 @@
(cond
((zero? (-> obj hit-points))
(if (not (and (-> obj next-state) (= (-> obj next-state name) 'die)))
((method-of-object obj kill-prefer-falling))
(kill-prefer-falling obj)
)
)
(else