random.lagged-fibonacci: more consistent stack effect

mrjbq7 · Jul 7, 2024 · 3294383 · 3294383
1 parent aab90f2
commit 3294383
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/extra/random/lagged-fibonacci/lagged-fibonacci.factor b/extra/random/lagged-fibonacci/lagged-fibonacci.factor
@@ -57,7 +57,7 @@ M:: lagged-fibonacci seed-random ( lagged-fibonacci seed! -- lagged-fibonacci )
         p-r 1 + double <c-array> >>u
         swap seed-random ; inline
 
-GENERIC: random-float* ( tuple -- r )
+GENERIC: random-float* ( rnd -- n )
 
 : random-float ( -- n ) random-generator get random-float* ; inline