From e4e349741b8559886702232173e17e2472e4ac33 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 24 Nov 2013 20:42:10 -0800 Subject: [PATCH] fix some uses of "1 head*" to be "but-last". --- basis/persistent/sequences/sequences.factor | 2 +- extra/math/vectors/homogeneous/homogeneous.factor | 3 ++- extra/opencl/opencl.factor | 4 ++-- 3 files changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/persistent/sequences/sequences.factor b/basis/persistent/sequences/sequences.factor index 5503e369b4..8f9cbe83c8 100644 --- 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 65f57be514..b92406c469 100644 --- 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 a49cce504b..2371d2c058 100644 --- 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 ] info ; inline