add 2pi constant

diff --git a/basis/math/constants/constants.factor b/basis/math/constants/constants.factor
index 118a8e8197c038d6de93e62d76b255d4b72ab684..a2d3213e78ce64f63597f74612e87a3f444e68a3 100644 (file)
--- 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