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

Cleanup partial-dispatch by removing >r r> usage

db4
Aaron Schaefer 2008-11-17 17:59:15 -05:00
parent 5d8b3c3fb1
commit d328589b87
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/math/partial-dispatch/partial-dispatch.factor
View File

@ -126,7 +126,7 @@ SYMBOL: fast-math-ops
: math-method* ( word left right -- quot ) : math-method* ( word left right -- quot )
3dup math-op 3dup math-op
[ >r 3drop r> 1quotation ] [ drop math-method ] if ; [ [ 3drop ] dip 1quotation ] [ drop math-method ] if ;
: math-both-known? ( word left right -- ? ) : math-both-known? ( word left right -- ? )
3dup math-op 3dup math-op
@ -157,13 +157,13 @@ SYMBOL: fast-math-ops
] bi@ append ; ] bi@ append ;
: each-derived-op ( word quot -- ) : each-derived-op ( word quot -- )
>r derived-ops r> each ; inline [ derived-ops ] dip each ; inline
: each-fast-derived-op ( word quot -- ) : each-fast-derived-op ( word quot -- )
>r fast-derived-ops r> each ; inline [ fast-derived-ops ] dip each ; inline
: each-integer-derived-op ( word quot -- ) : each-integer-derived-op ( word quot -- )
>r integer-derived-ops r> each ; inline [ integer-derived-ops ] dip each ; inline
[ [
[ [