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

fix fallbacks for vall?, vany?, vnone?

db4
Joe Groff 2009-10-10 13:01:13 -05:00
parent 97ab9dc4ab
commit 588899a1b3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/math/vectors/vectors.factor
View File

@ -123,9 +123,9 @@ M: simd-128 vshuffle ( u perm -- v )
: vxor ( u v -- w ) over '[ [ _ element>bool ] bi@ xor ] 2map ; : vxor ( u v -- w ) over '[ [ _ element>bool ] bi@ xor ] 2map ;
: vnot ( u -- w ) dup '[ _ element>bool not ] map ; : vnot ( u -- w ) dup '[ _ element>bool not ] map ;
: vall? ( v -- ? ) [ ] all? ; : vall? ( v -- ? ) dup '[ _ element>bool ] all? ;
: vany? ( v -- ? ) [ ] any? ; : vany? ( v -- ? ) dup '[ _ element>bool ] any? ;
: vnone? ( v -- ? ) [ not ] all? ; : vnone? ( v -- ? ) dup '[ _ element>bool not ] all? ;
: v< ( u v -- w ) [ < ] 2map ; : v< ( u v -- w ) [ < ] 2map ;
: v<= ( u v -- w ) [ <= ] 2map ; : v<= ( u v -- w ) [ <= ] 2map ;