Resolved merge.

[factor.git] / extra / math / vectors / homogeneous / homogeneous.factor

diff --git a/extra/math/vectors/homogeneous/homogeneous.factor b/extra/math/vectors/homogeneous/homogeneous.factor
index 218e56dfb5667f8760e1c136cea843bcd5b04f05..65f57be5146ab18064d6bc8fadf0690978986f3d 100644 (file)
--- a/extra/math/vectors/homogeneous/homogeneous.factor
+++ b/extra/math/vectors/homogeneous/homogeneous.factor
@@ -5,7 +5,7 @@ IN: math.vectors.homogeneous
 : (homogeneous-xyz) ( h -- xyz )
     1 head* ; inline
 : (homogeneous-w) ( h -- w )
-    peek ; inline
+    last ; inline
 
 : h+ ( a b -- c )
     2dup [ (homogeneous-w) ] bi@ over =