Fix compile error

2008-11-30 09:11:31 -06:00 · 2008-11-30 09:11:31 -06:00 · 6b0a477d3d
parent b4e47eb1e1
commit 6b0a477d3d
1 changed files with 1 additions and 1 deletions
--- a/extra/benchmark/fannkuch/fannkuch.factor
+++ b/extra/benchmark/fannkuch/fannkuch.factor
@ -22,7 +22,7 @@ IN: benchmark.fannkuch
    pick 30 < [ [ 1+ ] [ ] [ dup write-permutation ] tri* ] when
    count-flips max ; inline

-: fannkuch ( n -- flip# )
+: fannkuch ( n -- )
    [
        [ 0 0 ] dip [ 1+ ] B{ } map-as
        [ fannkuch-step ] each-permutation nip