I would like to use nfind as an escapable 2each, but I'm in trouble.
I simplified the problem as follows:
In scratchpad, when I input:
USE: sequences.generalizations
{ 1 2 3 4 5 } { 5 4 3 2 1 } [ > ] 2 nfind
get:
--- Data stack:
3
4
2
And I define nfind-test and use it:
: nfind-test ( x y -- i/f elt1 elt2 ) [ > ] 2 nfind ;
{ 1 2 3 4 5 } { 5 4 3 2 1 } nfind-test
But I receive an error:
The word nfind-test cannot be executed because it failed to compile
The input quotation to “times” doesn't match its expected effect
Input Expected Got
[ f ] ( ... -- ... ) ( -- x )
What am I wrong?
--
KUSUMOTO Norio
_______________________________________________
Factor-talk mailing list
Factor-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/factor-talk
