Permalink
Browse files

fixed a typo in spawn-rel

  • Loading branch information...
JohnEarnest committed Jun 10, 2012
1 parent d1f1593 commit 7224b19f36fdb0be9eb2f65fb32bd432a404de69
Showing with 3 additions and 2 deletions.
  1. +3 −2 lib/Game/Entities.fs
View
@@ -86,7 +86,8 @@
: spawn-rel ( delta-x delta-y id tile 'func -- id )
alloc >r
i kind ! i tile!
- spawn-size @ sprite@ ! >r
+ spawn-size @ i sprite@ !
+ >r
i py + j py!
r> px + i px!
r>
@@ -217,7 +218,7 @@
0 > -6 and 7 + then
;
-:vector distance ( a b -- )
+:vector distance ( a b -- dist )
# yields distance^2 by default
over px over px - dup * >r
py swap py - dup * r> +

0 comments on commit 7224b19

Please sign in to comment.