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

Change parser so that M:: can use call-next-method

db4
Slava Pestov 2008-05-01 16:23:35 -05:00
parent c832abae86
commit d3660002c5
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
core/parser/parser.factor
View File

@ -421,14 +421,17 @@ ERROR: bad-number ;
SYMBOL: current-class SYMBOL: current-class
SYMBOL: current-generic SYMBOL: current-generic
: (M:) : with-method-definition ( quot -- parsed )
CREATE-METHOD
[ [
>r
[ "method-class" word-prop current-class set ] [ "method-class" word-prop current-class set ]
[ "method-generic" word-prop current-generic set ] [ "method-generic" word-prop current-generic set ]
[ ] tri [ ] tri
parse-definition r> call
] with-scope ; ] with-scope ; inline
: (M:)
CREATE-METHOD [ parse-definition ] with-method-definition ;
: scan-object ( -- object ) : scan-object ( -- object )
scan-word dup parsing? scan-word dup parsing?