diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor index 8c045ee270..c3cf1077e9 100644 --- a/extra/boids/boids.factor +++ b/extra/boids/boids.factor @@ -76,7 +76,7 @@ VAR: separation-radius : constrain ( n a b -- n ) rot min max ; : angle-between ( vec vec -- angle ) -2dup v. -rot norm swap norm * / -1 1 constrain acos rad>deg ; + 2dup v. -rot norm swap norm * / -1 1 constrain acos rad>deg ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!