add 2pi constant

2009-05-06 12:38:14 -05:00 · 2009-05-06 12:38:14 -05:00 · fdab677ef5
parent 2bb7b287f7
commit fdab677ef5
1 changed files with 1 additions and 0 deletions
--- a/basis/math/constants/constants.factor
+++ b/basis/math/constants/constants.factor
@ -7,6 +7,7 @@ IN: math.constants
 : euler ( -- gamma ) 0.57721566490153286060 ; inline
 : phi ( -- phi ) 1.61803398874989484820 ; inline
 : pi ( -- pi ) 3.14159265358979323846 ; inline
+: 2pi ( -- pi ) 2 pi * ; inline
 : epsilon ( -- epsilon ) 2.2204460492503131e-16 ; inline
 : smallest-float ( -- x ) HEX: 1 bits>double ; foldable
 : largest-float ( -- x ) HEX: 7fefffffffffffff bits>double ; foldable