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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/sequences/generalizations/generalizations.factor
View File

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