]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/fib3/fib3.factor
Fixing everything for mandatory stack effects
[factor.git] / extra / benchmark / fib3 / fib3.factor
index c2b86f6bfaae102641bc96b98d9b9cc329e909d2..13eaef8e0cd5e387e50cef8c1b24f14176f49806 100644 (file)
@@ -4,6 +4,6 @@ IN: benchmark.fib3
 : fib ( m -- n )
     dup 1 <= [ drop 1 ] [ dup 1 - fib swap 2 - fib + ] if ;
 
-: fib-main 34 fib 9227465 assert= ;
+: fib-main ( -- ) 34 fib 9227465 assert= ;
 
 MAIN: fib-main