Fix a typo
parent
30a4275c13
commit
18f8622665
|
@ -47,7 +47,7 @@ TUPLE: check-method class generic ;
|
||||||
[ "methods" word-prop ?hash* nip ] word-subset-with ;
|
[ "methods" word-prop ?hash* nip ] word-subset-with ;
|
||||||
|
|
||||||
M: method-spec where
|
M: method-spec where
|
||||||
dup first2 method method-loc [ ] [ second where* ] ?if ;
|
dup first2 method method-loc [ ] [ second where ] ?if ;
|
||||||
|
|
||||||
M: method-spec subdefs drop f ;
|
M: method-spec subdefs drop f ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue