steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

forgot one

db4
Doug Coleman 2009-08-14 14:40:44 -05:00
parent 7c92ab1ea5
commit 6aa64a15dd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/benchmark/fib6/fib6.factor
View File

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