boids: population needs to be an integer for slicing.

diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor
index d4314ade37ad5d0cf0b0ed22c9642be7e17fa847..af148cade1e07c8282dca13d1b0415ef065cd11a 100644 (file)
--- a/extra/boids/boids.factor
+++ b/extra/boids/boids.factor
@@ -96,7 +96,7 @@ M: range-observer model-changed
 
 :: set-population ( n boids-gadget -- )
     boids-gadget [
-        dup length n - dup 0 >
+        dup length n - >integer dup 0 >
         [ head* ]
         [ neg random-boids append ] if
     ] change-boids drop ;