Oops

2008-11-29 13:44:38 -06:00 · 2008-11-29 13:44:38 -06:00 · 4f5b0e5cd6
parent 280087f3ba
commit 4f5b0e5cd6
1 changed files with 3 additions and 1 deletions
--- a/basis/math/partial-dispatch/partial-dispatch.factor
+++ b/basis/math/partial-dispatch/partial-dispatch.factor
@ -117,7 +117,9 @@ M: word integer-op-input-classes
    { fixnum bignum float }
    [ [ dup 3array ] [ swap method ] 2bi ] with { } map>assoc
    [ nip ] assoc-filter
-    [ def>> peek ] assoc-map % ;
+    [ def>> ] assoc-map
+    [ nip length 1 = ] assoc-filter
+    [ first ] assoc-map % ;

 SYMBOL: math-ops