(game-module "remove"
  (title "Remove bug demo")
  (version "1.0")
  (blurb "Displays an error in the remove form.")
)

(unit-type unit1 (image-name "adventurer"))
(unit-type unit2 (image-name "adventurer"))
(unit-type unit3 (image-name "adventurer"))
(unit-type unit4 (image-name "adventurer"))
(unit-type unit5 (image-name "adventurer"))
(unit-type unit6 (image-name "adventurer"))
(unit-type unit7 (image-name "adventurer"))
(unit-type unit8 (image-name "adventurer"))
(unit-type unit9 (image-name "adventurer"))
(unit-type unit10 (image-name "adventurer"))

(define nonspecialunits (remove (unit1 unit2 unit3) u*))

;;;; Here's the error: the "remove" form should have set nonspecialunits to
;;;; a length-7 list (10 minus 3) but instead it will have set it to a
;;;; length-10 list.
(add nonspecialunits hp-max (1 2 3 4 5 6 7))