diff --git a/basis/locals/parser/parser.factor b/basis/locals/parser/parser.factor index 4b212f098e..0d2e74545e 100644 --- a/basis/locals/parser/parser.factor +++ b/basis/locals/parser/parser.factor @@ -90,7 +90,7 @@ M: lambda-parser parse-quotation ( -- quotation ) scan-new-word [ parse-definition ] parse-locals-definition - ] in-word-definition ; + ] in-definition ; : (M::) ( -- word def ) [ @@ -99,4 +99,4 @@ M: lambda-parser parse-quotation ( -- quotation ) [ parse-definition ] parse-locals-method-definition drop ] with-method-definition - ] in-word-definition ; + ] in-definition ; diff --git a/core/effects/parser/parser.factor b/core/effects/parser/parser.factor index f14877a565..5501515199 100644 --- a/core/effects/parser/parser.factor +++ b/core/effects/parser/parser.factor @@ -59,7 +59,7 @@ ERROR: can't-nest-definitions word ; : check-in-definition ( -- ) in-definition get [ word can't-nest-definitions ] when ; -: in-word-definition ( quot -- ) +: in-definition ( quot -- ) [ check-in-definition t in-definition ] dip with-variable ; inline : (:) ( -- word def effect ) @@ -67,4 +67,4 @@ ERROR: can't-nest-definitions word ; scan-new-word scan-effect parse-definition swap - ] in-word-definition ; + ] in-definition ; diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor index 90f7b91f83..42704ed1ca 100644 --- a/core/generic/parser/parser.factor +++ b/core/generic/parser/parser.factor @@ -56,4 +56,4 @@ PRIVATE> : (M:) ( -- method def ) [ scan-new-method [ parse-method-definition ] with-method-definition - ] in-word-definition ; + ] in-definition ;