From abf4ca20c2c0f276e0500376f40bd32c330a1a66 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 23 Apr 2016 12:43:15 -0700
Subject: [PATCH] Revert "boids: population needs to be an integer for
 slicing."

This reverts commit dec9becf65d95134845e491b061b06701d44a18d.
---
 extra/boids/boids.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor
index af148cade1..d4314ade37 100644
--- 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 - >integer dup 0 >
+        dup length n - dup 0 >
         [ head* ]
         [ neg random-boids append ] if
     ] change-boids drop ;