Language change: tuple slot setter words with stack effect ( value object -- ) are...

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

diff --git a/extra/project-euler/common/common.factor b/extra/project-euler/common/common.factor
index 895eba4deb66ccc067158d2022cf6e89c9ae2b6e..7474850f8f1e34bc65fc7ec55122d7b13c2256e3 100644 (file)
--- a/extra/project-euler/common/common.factor
+++ b/extra/project-euler/common/common.factor
@@ -157,6 +157,6 @@ PRIVATE>
 SYNTAX: SOLUTION:
     scan-word
     [ name>> "-main" append create-in ] keep
-    [ drop current-vocab (>>main) ]
+    [ drop current-vocab main<< ]
     [ [ . ] swap prefix (( -- )) define-declared ]
     2bi ;