]> gitweb.factorcode.org Git - factor.git/commitdiff
forgot one
authorDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2009 19:40:44 +0000 (14:40 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 14 Aug 2009 19:40:44 +0000 (14:40 -0500)
extra/benchmark/fib6/fib6.factor

index 70ce97597467861d18a4ce93aace175e4ace965e..7ddd58468abc87015d89059498146c34a864d084 100755 (executable)
@@ -4,7 +4,7 @@ IN: benchmark.fib6
 : fib ( x -- y )\r
     "int" { "int" } "cdecl" [\r
         dup 1 <= [ drop 1 ] [\r
-            1 - dup fib swap 1- fib +\r
+            1 - dup fib swap 1 - fib +\r
         ] if\r
     ] alien-callback\r
     "int" { "int" } "cdecl" alien-indirect ;\r