From 1f601ed7e89c79ea8ae415b8000e7690f99e6bc5 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 14 Aug 2009 14:40:44 -0500 Subject: [PATCH] forgot one --- extra/benchmark/fib6/fib6.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/benchmark/fib6/fib6.factor b/extra/benchmark/fib6/fib6.factor index 70ce975974..7ddd58468a 100755 --- a/extra/benchmark/fib6/fib6.factor +++ b/extra/benchmark/fib6/fib6.factor @@ -4,7 +4,7 @@ IN: benchmark.fib6 : fib ( x -- y ) "int" { "int" } "cdecl" [ dup 1 <= [ drop 1 ] [ - 1 - dup fib swap 1- fib + + 1 - dup fib swap 1 - fib + ] if ] alien-callback "int" { "int" } "cdecl" alien-indirect ;