From e2d4a1c3c852180d49fb315d260dc4fe4472f717 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 14 Oct 2013 11:15:48 -0700
Subject: [PATCH] math.extras: label kahan+ stack effects to match pseudocode.

---
 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 4766eb65f0..29bc5dffea 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -292,7 +292,7 @@ M: real round-away-from-zero
 
 <PRIVATE
 
-: kahan+ ( c n elt -- c' n' )
+: kahan+ ( c sum elt -- c' sum' )
     rot - 2dup + [ -rot [ - ] bi@ ] keep ;
 
 PRIVATE>