use inline and TYPED: in terrain so that vector math can optimize

2010-02-11 10:55:50 -08:00 · 2010-02-11 10:55:50 -08:00 · 72013c88c9
parent ce11431fdb
commit 72013c88c9
1 changed files with 2 additions and 2 deletions
--- a/extra/terrain/terrain.factor
+++ b/extra/terrain/terrain.factor
@ -178,9 +178,9 @@ terrain-world H{
    [
        { 0 2 3 3 } vshuffle terrain-height-at PLAYER-HEIGHT +
        -1/0. swap -1/0. -1/0. float-4-boa
-    ] keep vmax ;
+    ] keep vmax ; inline

-:: collide ( world player -- )
+TYPED:: collide ( world: terrain-world player: player -- )
    world terrain-segment>> :> segment
    player location>> :> location
    segment location (collide) :> location'