sequences: bring back check-length.
parent
df7ce245ed
commit
b82d866340
|
@ -383,7 +383,7 @@ PRIVATE>
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: ((each)) ( seq -- n quot )
|
: ((each)) ( seq -- n quot )
|
||||||
[ length ] keep [ nth-unsafe ] curry ; inline
|
[ length check-length ] keep [ nth-unsafe ] curry ; inline
|
||||||
|
|
||||||
: (each) ( seq quot -- n quot' )
|
: (each) ( seq quot -- n quot' )
|
||||||
[ ((each)) ] dip compose ; inline
|
[ ((each)) ] dip compose ; inline
|
||||||
|
@ -404,7 +404,7 @@ PRIVATE>
|
||||||
[ nth-unsafe ] bi-curry@ bi ; inline
|
[ nth-unsafe ] bi-curry@ bi ; inline
|
||||||
|
|
||||||
: ((2each)) ( seq1 seq2 -- n quot )
|
: ((2each)) ( seq1 seq2 -- n quot )
|
||||||
[ min-length ] 2keep [ 2nth-unsafe ] 2curry ; inline
|
[ min-length check-length ] 2keep [ 2nth-unsafe ] 2curry ; inline
|
||||||
|
|
||||||
: (2each) ( seq1 seq2 quot -- n quot' )
|
: (2each) ( seq1 seq2 quot -- n quot' )
|
||||||
[ ((2each)) ] dip compose ; inline
|
[ ((2each)) ] dip compose ; inline
|
||||||
|
@ -414,7 +414,7 @@ PRIVATE>
|
||||||
|
|
||||||
: (3each) ( seq1 seq2 seq3 quot -- n quot' )
|
: (3each) ( seq1 seq2 seq3 quot -- n quot' )
|
||||||
[
|
[
|
||||||
[ [ length ] tri@ min min ]
|
[ [ length ] tri@ min min check-length ]
|
||||||
[ [ 3nth-unsafe ] 3curry ] 3bi
|
[ [ 3nth-unsafe ] 3curry ] 3bi
|
||||||
] dip compose ; inline
|
] dip compose ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue