naive: remove unnecessary checks

This commit is contained in:
Philip Monk 2021-03-31 19:47:40 -07:00
parent 26226916a0
commit f277eaadb2
No known key found for this signature in database
GPG Key ID: B66E1F02604E44EC

View File

@ -475,7 +475,6 @@
++ w-point-fx
|* [fun=$-([ship point *] (unit [effects point])) =ship rest=*]
^- (unit [effects ^state])
?: (gth (ship-rank ship) 2) ~ :: ensure get-point won't crash
=/ point (get-point state ship)
?~ point ~
?> ?=(%l2 -.u.point)
@ -487,7 +486,6 @@
++ w-point
|* [fun=$-([ship point *] (unit point)) =ship rest=*]
^- (unit [effects ^state])
?: (gth (ship-rank ship) 2) ~ :: ensure get-point won't crash
=/ point (get-point state ship)
?~ point ~
?> ?=(%l2 -.u.point)