math.extras: inline kahan+.

2013-10-14 14:06:19 -07:00 · 2013-10-14 14:06:19 -07:00 · e4e4eb38c5
parent 946cfdda75
commit e4e4eb38c5
1 changed files with 1 additions and 1 deletions
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@ -293,7 +293,7 @@ M: real round-away-from-zero
 <PRIVATE

 : kahan+ ( c sum elt -- c' sum' )
-    rot - 2dup + [ -rot [ - ] bi@ ] keep ;
+    rot - 2dup + [ -rot [ - ] bi@ ] keep ; inline

 PRIVATE>