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

getting rid of seq-stupid-all

cvs
Daniel Ehrenberg 2005-08-30 18:53:23 +00:00
parent 55ce64a477
commit c4f0756b66
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/algebra/parse-k.factor
View File

@ -181,9 +181,6 @@ UNION: comp-literal number general-list ;
M: comp-literal compile-ast ! literal numbers M: comp-literal compile-ast ! literal numbers
replace-with nip ; replace-with nip ;
: seq-stupid-all? ( seq pred -- ? )
t -rot [ call and ] cons each ; inline
: accumulator ( vars { asts } quot -- quot ) : accumulator ( vars { asts } quot -- quot )
-rot [ -rot [
[ [
@ -194,7 +191,7 @@ M: comp-literal compile-ast ! literal numbers
] make-list nip ; ] make-list nip ;
M: vector compile-ast ! literal vectors M: vector compile-ast ! literal vectors
dup [ number? ] seq-stupid-all? [ dup [ number? ] all? [
replace-with nip replace-with nip
] [ ] [
[ , ] accumulator [ make-vector nip ] cons [ , ] accumulator [ make-vector nip ] cons