math.extras: Fix stirling

Fixes #2149
2019-07-06 13:30:52 +02:00 · 2019-07-06 13:30:52 +02:00 · c3197c36c3
parent eb25325f87
commit c3197c36c3
1 changed files with 2 additions and 2 deletions
--- 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 ]