Fixing conflicts from stack checker changes

[factor.git] / core / words / words.factor

diff --git a/core/words/words.factor b/core/words/words.factor
index 33aa9e18d2a66900c54676c5ab429fc4f1bc2ce6..c27ea4fd8fbd02eedb92d6a6ce220b5f445831f3 100755 (executable)
--- a/core/words/words.factor
+++ b/core/words/words.factor
@@ -211,8 +211,8 @@ M: word subwords drop f ;
 : gensym ( -- word )
     "( gensym )" f <word> ;
 
-: define-temp ( quot -- word )
-    [ gensym dup ] dip define ;
+: define-temp ( quot effect -- word )
+    [ gensym dup ] 2dip define-declared ;
 
 : reveal ( word -- )
     dup [ name>> ] [ vocabulary>> ] bi dup vocab-words