From c3197c36c38713693cd90827ac7145b126fb888d Mon Sep 17 00:00:00 2001
From: Niklas Larsson <niklas@mm.st>
Date: Sat, 6 Jul 2019 13:30:52 +0200
Subject: [PATCH] math.extras: Fix stirling

Fixes #2149
---
 extra/math/extras/extras.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 4568ac4227..7e99b35364 100644
--- 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 ]