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

View File

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