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

Fix M::

db4
Slava Pestov 2008-05-01 16:23:11 -05:00
parent 85356804f9
commit c832abae86
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/locals/locals-tests.factor
View File

@ -230,3 +230,10 @@ DEFER: xyzzy
[ "xxx" "yyy" ] [ "yyy" "xxx" let*-test-4 ] unit-test [ "xxx" "yyy" ] [ "yyy" "xxx" let*-test-4 ] unit-test
GENERIC: next-method-test ( a -- b )
M: integer next-method-test 3 + ;
M:: fixnum next-method-test ( a -- b ) a call-next-method 1 + ;
[ 5 ] [ 1 next-method-test ] unit-test

4
extra/locals/locals.factor
View File

@ -279,7 +279,9 @@ M: wlet local-rewrite*
: (::) CREATE-WORD parse-locals-definition ; : (::) CREATE-WORD parse-locals-definition ;
: (M::) CREATE-METHOD parse-locals-definition ; : (M::)
CREATE-METHOD
[ parse-locals-definition ] with-method-definition ;
PRIVATE> PRIVATE>