Fixing everything for mandatory stack effects

[factor.git] / extra / math / polynomials / polynomials.factor

diff --git a/extra/math/polynomials/polynomials.factor b/extra/math/polynomials/polynomials.factor
index 842c4c7f50a2b845ad3f2546a38ed14e2a007e35..e3adf2277d1b9cf609b9c9f84b3db67092089610 100644 (file)
--- a/extra/math/polynomials/polynomials.factor
+++ b/extra/math/polynomials/polynomials.factor
@@ -54,7 +54,7 @@ PRIVATE>
     #! divide the last two numbers in the sequences
     [ peek ] bi@ / ;
 
-: (p/mod)
+: (p/mod) ( p p -- p p )
     2dup /-last
     2dup , n*p swapd
     p- >vector