steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2013-11-24 20:42:10 -08:00
parent f9be1f3055
commit e4e349741b
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/persistent/sequences/sequences.factor
View File

@ -9,7 +9,7 @@ M: sequence ppush swap suffix ;
GENERIC: ppop ( seq -- seq' ) GENERIC: ppop ( seq -- seq' )
M: sequence ppop 1 head* ; M: sequence ppop but-last ;
GENERIC: new-nth ( val i seq -- seq' ) GENERIC: new-nth ( val i seq -- seq' )

3
extra/math/vectors/homogeneous/homogeneous.factor
View File

@ -3,7 +3,8 @@ USING: kernel math math.vectors sequences ;
IN: math.vectors.homogeneous IN: math.vectors.homogeneous
: (homogeneous-xyz) ( h -- xyz ) : (homogeneous-xyz) ( h -- xyz )
1 head* ; inline but-last ; inline
: (homogeneous-w) ( h -- w ) : (homogeneous-w) ( h -- w )
last ; inline last ; inline

4
extra/opencl/opencl.factor
View File

@ -54,10 +54,10 @@ ERROR: cl-error err ;
[ size_t deref ] 2info ; inline [ size_t deref ] 2info ; inline
: info-string ( handle name quot -- string ) : info-string ( handle name quot -- string )
[ ascii decode 1 head* ] info ; inline [ ascii decode but-last ] info ; inline
: 2info-string ( handle name quot -- string ) : 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 ) : info-size_t-array ( handle name quot -- size_t-array )
[ [ length size_t heap-size / ] keep swap size_t <c-direct-array> ] info ; inline [ [ length size_t heap-size / ] keep swap size_t <c-direct-array> ] info ; inline