math.extras: label kahan+ stack effects to match pseudocode.

2013-10-14 11:15:48 -07:00 · 2013-10-14 11:15:48 -07:00 · e2d4a1c3c8
parent 99883a348b
commit e2d4a1c3c8
1 changed files with 1 additions and 1 deletions
--- 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>