fixed stack effect comment

diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index 90cac5b3752074ac6a88c91d9f7d92dfe0c85e41..d18c861f08fc1d4ccc58fe1698d3bc946b95c186 100644 (file)
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -203,7 +203,7 @@ SYMBOL: last
     2dup swap unparse write " " write unparse print
     = [ "problem in math" throw ] unless ;
 
-: interp-compile-check-1 ( quot -- )
+: interp-compile-check-1 ( x quot -- )
     dup . 
     [ last set ] keep
     [ call ] 2keep compile-1