math.extras: Fix stirling

Fixes #2149

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 4568ac4227e329a95a997ace7112d665a38a2a87..7e99b35364d775caefc0b7e1fe779185c8d6e584 100644 (file)
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -11,10 +11,10 @@ sequences.private sets sorting sorting.extras ;
 
 IN: math.extras
 
-<PRIVATE
-
 DEFER: stirling
 
+<PRIVATE
+
 : (stirling) ( n k -- x )
     [ [ 1 - ] bi@ stirling ]
     [ [ 1 - ] dip stirling ]