From dcc28cd0f837f18b447d887fa3c5d75e45416cf7 Mon Sep 17 00:00:00 2001
From: Samuel Tardieu <sam@rfc1149.net>
Date: Fri, 4 Apr 2008 12:48:36 +0200
Subject: [PATCH] Fix bug in project-euler.169 introduced by a former checkin

---
 extra/project-euler/169/169.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/project-euler/169/169.factor b/extra/project-euler/169/169.factor
index 35fb2c2c1e..90655149dc 100644
--- 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 ] }
-        { [ t ]        [ 2/ [ fn ] [ 1- fn + ] bi ] }
+        { [ t ]        [ 2/ [ fn ] [ 1- fn + ] bi + ] }
     } cond ;
 
 : euler169 ( -- result )