basis/extra: replace "/ >integer" with "/i" in a few places.

[factor.git] / extra / project-euler / 064 / 064.factor

diff --git a/extra/project-euler/064/064.factor b/extra/project-euler/064/064.factor
index eae88248037f4d7e85791c5a955ca6833f5d613f..1cd135716219e5ce81d1c3edf346a3a5675dfd5a 100644 (file)
--- a/extra/project-euler/064/064.factor
+++ b/extra/project-euler/064/064.factor
@@ -147,7 +147,7 @@ C: <cfrac> cfrac
 
 :: split ( fr -- k fr' )
     fr >cfrac< :> ( n a b )
-    n sqrt a + b / >integer
+    n sqrt a + b /i
     dup n swap
     b * a swap -
     b