fix compile error

diff --git a/extra/project-euler/169/169.factor b/extra/project-euler/169/169.factor
index 973e50748c0f79bb7e1b1e3b833443ca83a2f39b..4387662c90f033f0d63a51a6e682554b865982e6 100644 (file)
--- a/extra/project-euler/169/169.factor
+++ b/extra/project-euler/169/169.factor
@@ -30,7 +30,7 @@ MEMO: fn ( n -- x )
     {
         { [ dup 2 < ]  [ drop 1 ] }
         { [ dup odd? ] [ 2/ fn ] }
-        [ 2/ [ fn ] [ 1- fn + ] bi + ]
+        [ 2/ [ fn ] [ 1- fn ] bi + ]
     } cond ;
 
 : euler169 ( -- result )