core: rename in-word-definition to in-definition

db4
Doug Coleman 2012-08-24 16:04:49 -07:00
parent 84402ccf7e
commit b06b6a8261
3 changed files with 5 additions and 5 deletions

View File

@ -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 ;

View File

@ -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 ;

View File

@ -56,4 +56,4 @@ PRIVATE>
: (M:) ( -- method def )
[
scan-new-method [ parse-method-definition ] with-method-definition
] in-word-definition ;
] in-definition ;