core: rename in-word-definition to in-definition
parent
84402ccf7e
commit
b06b6a8261
|
@ -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 ;
|
||||
|
|
|
@ -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 ;
|
||||
|
|
|
@ -56,4 +56,4 @@ PRIVATE>
|
|||
: (M:) ( -- method def )
|
||||
[
|
||||
scan-new-method [ parse-method-definition ] with-method-definition
|
||||
] in-word-definition ;
|
||||
] in-definition ;
|
||||
|
|
Loading…
Reference in New Issue