factor: alien.c-types:short -> cramp

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

diff --git a/extra/project-euler/117/117.factor b/extra/project-euler/117/117.factor
index 049a9cad5ba47427da615eb522821af701f83bbc..66491aaaff06db5adb7b91486e3f7bbd2197060d 100644 (file)
--- a/extra/project-euler/117/117.factor
+++ b/extra/project-euler/117/117.factor
@@ -28,7 +28,7 @@ IN: project-euler.117
 <PRIVATE
 
 : next ( seq -- )
-    [ 4 short tail* sum ] keep push ;
+    [ 4 cramp tail* sum ] keep push ;
 
 : (euler117) ( n -- m )
     [ V{ 1 } clone ] dip over [ next ] curry times last ;