fix some uses of "1 head*" to be "but-last".

diff --git a/basis/persistent/sequences/sequences.factor b/basis/persistent/sequences/sequences.factor
index 5503e369b4699f89b048802c0d0e0eb7cec54f35..8f9cbe83c8204a6fd1ff4a13844bca296e1900a7 100644 (file)
--- a/basis/persistent/sequences/sequences.factor
+++ b/basis/persistent/sequences/sequences.factor
@@ -9,7 +9,7 @@ M: sequence ppush swap suffix ;
 
 GENERIC: ppop ( seq -- seq' )
 
-M: sequence ppop 1 head* ;
+M: sequence ppop but-last ;
 
 GENERIC: new-nth ( val i seq -- seq' )
 

diff --git a/extra/math/vectors/homogeneous/homogeneous.factor b/extra/math/vectors/homogeneous/homogeneous.factor
index 65f57be5146ab18064d6bc8fadf0690978986f3d..b92406c469379e216c0ea46fc5b38b3b8c7ed53f 100644 (file)
--- a/extra/math/vectors/homogeneous/homogeneous.factor
+++ b/extra/math/vectors/homogeneous/homogeneous.factor
@@ -3,7 +3,8 @@ USING: kernel math math.vectors sequences ;
 IN: math.vectors.homogeneous
 
 : (homogeneous-xyz) ( h -- xyz )
-    1 head* ; inline
+    but-last ; inline
+
 : (homogeneous-w) ( h -- w )
     last ; inline
 

diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor
index a49cce504b68e70b3a94a2665de7ec259ef00328..2371d2c058ff3ab839a6cf3f2f2141047cb55703 100644 (file)
--- a/extra/opencl/opencl.factor
+++ b/extra/opencl/opencl.factor
@@ -54,10 +54,10 @@ ERROR: cl-error err ;
     [ size_t deref ] 2info ; inline
 
 : info-string ( handle name quot -- string )
-    [ ascii decode 1 head* ] info ; inline
+    [ ascii decode but-last ] info ; inline
 
 : 2info-string ( handle name quot -- string )
-    [ ascii decode 1 head* ] 2info ; inline
+    [ ascii decode but-last ] 2info ; inline
 
 : info-size_t-array ( handle name quot -- size_t-array )
     [ [ length size_t heap-size / ] keep swap size_t <c-direct-array> ] info ; inline