Fix a typo

slava 2006-11-27 04:26:36 +00:00
parent 30a4275c13
commit 18f8622665
1 changed files with 1 additions and 1 deletions

View File

@ -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 ;