Fixing everything for mandatory stack effects

[factor.git] / extra / benchmark / typecheck1 / typecheck1.factor

diff --git a/extra/benchmark/typecheck1/typecheck1.factor b/extra/benchmark/typecheck1/typecheck1.factor
index fd7bb6e80295171e31bd74205aaa343ffa652f69..434094a2a38489c91f4160b63bcb33b999e46949 100644 (file)
--- a/extra/benchmark/typecheck1/typecheck1.factor
+++ b/extra/benchmark/typecheck1/typecheck1.factor
@@ -3,8 +3,8 @@ IN: benchmark.typecheck1
 
 TUPLE: hello n ;
 
-: foo 0 100000000 [ over hello-n + ] times ;
+: foo ( obj -- obj n ) 0 100000000 [ over hello-n + ] times ;
 
-: typecheck-main 0 hello boa foo 2drop ;
+: typecheck-main ( -- ) 0 hello boa foo 2drop ;
 
 MAIN: typecheck-main