--- gforth/fib.fs 1995/11/13 18:38:35 1.1 +++ gforth/fib.fs 2006/01/18 12:56:12 1.2 @@ -1,3 +1,7 @@ +\ Note: This is incorrect ("n fib" produces the result for fib(n+1)), +\ but we do not change it to ensure that future timing results are +\ comparable to older timing results. + : fib ( n1 -- n2 ) dup 2 < if drop 1