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

Oops

db4
Slava Pestov 2008-11-29 13:44:38 -06:00
parent 280087f3ba
commit 4f5b0e5cd6
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,7 +117,9 @@ M: word integer-op-input-classes
{ fixnum bignum float } { fixnum bignum float }
[ [ dup 3array ] [ swap method ] 2bi ] with { } map>assoc [ [ dup 3array ] [ swap method ] 2bi ] with { } map>assoc
[ nip ] assoc-filter [ nip ] assoc-filter
[ def>> peek ] assoc-map % ; [ def>> ] assoc-map
[ nip length 1 = ] assoc-filter
[ first ] assoc-map % ;
SYMBOL: math-ops SYMBOL: math-ops