sequences.generalizations: fix finish-nfind use of times.

(that didn't work in optimizing compiler).
clean-macosx-x86-64
John Benediktsson 2019-10-04 18:15:19 -07:00
parent 0dc71ab053
commit e17b911929
1 changed files with 5 additions and 4 deletions

View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Joe Groff.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators fry generalizations kernel macros math
math.order memoize.private sequences sequences.private ;
USING: arrays combinators fry generalizations kernel macros math
math.order memoize.private quotations sequences
sequences.private ;
IN: sequences.generalizations
MACRO: (nsequence) ( n -- quot )
@ -128,10 +129,10 @@ MACRO: nmap-reduce ( map-quot reduce-quot n -- quot )
(neach) all-integers? ; inline
MACRO: finish-nfind ( n -- quot )
[ 1 + ] keep dup dup dup '[
[ 1 + ] keep dup dup dup f <array> >quotation '[
_ npick
[ [ dup ] _ ndip _ nnth-unsafe ]
[ _ ndrop _ [ f ] times ]
[ _ ndrop @ ]
if
] ;