Fixing everything for mandatory stack effects

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

diff --git a/extra/benchmark/fib6/fib6.factor b/extra/benchmark/fib6/fib6.factor
index cc42028df638efc787ea024b5654c4c3fb93574c..594b451876e1968c592f0fb788d7f6a4cae04643 100755 (executable)
--- a/extra/benchmark/fib6/fib6.factor
+++ b/extra/benchmark/fib6/fib6.factor
@@ -1,7 +1,7 @@
 IN: benchmark.fib6\r
 USING: math kernel alien ;\r
 \r
-: fib\r
+: fib ( x -- y )\r
     "int" { "int" } "cdecl" [\r
         dup 1 <= [ drop 1 ] [\r
             1- dup fib swap 1- fib +\r
@@ -9,6 +9,6 @@ USING: math kernel alien ;
     ] alien-callback\r
     "int" { "int" } "cdecl" alien-indirect ;\r
 \r
-: fib-main 25 fib drop ;\r
+: fib-main ( -- ) 25 fib drop ;\r
 \r
 MAIN: fib-main\r