steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/locals/parser/parser.factor
View File

@ -90,7 +90,7 @@ M: lambda-parser parse-quotation ( -- quotation )
scan-new-word scan-new-word
[ parse-definition ] [ parse-definition ]
parse-locals-definition parse-locals-definition
] in-word-definition ; ] in-definition ;
: (M::) ( -- word def ) : (M::) ( -- word def )
[ [
@ -99,4 +99,4 @@ M: lambda-parser parse-quotation ( -- quotation )
[ parse-definition ] [ parse-definition ]
parse-locals-method-definition drop parse-locals-method-definition drop
] with-method-definition ] with-method-definition
] in-word-definition ; ] in-definition ;

4
core/effects/parser/parser.factor
View File

@ -59,7 +59,7 @@ ERROR: can't-nest-definitions word ;
: check-in-definition ( -- ) : check-in-definition ( -- )
in-definition get [ word can't-nest-definitions ] when ; 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 [ check-in-definition t in-definition ] dip with-variable ; inline
: (:) ( -- word def effect ) : (:) ( -- word def effect )
@ -67,4 +67,4 @@ ERROR: can't-nest-definitions word ;
scan-new-word scan-new-word
scan-effect scan-effect
parse-definition swap parse-definition swap
] in-word-definition ; ] in-definition ;

2
core/generic/parser/parser.factor
View File

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