From e4e4eb38c59773fb8edab5ad1d1c54501b2506de Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 14 Oct 2013 14:06:19 -0700
Subject: [PATCH] math.extras: inline kahan+.

---
 extra/math/extras/extras.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 29bc5dffea..2b71d218e9 100644
--- 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>