typo in specialize-method

db4
Joe Groff 2009-09-01 15:59:59 -05:00
parent 32cba4dad3
commit 333943188e
1 changed files with 1 additions and 1 deletions

View File

@ -65,7 +65,7 @@ t specialize-method? set-global
: specialize-method ( quot method -- quot' )
[ specialize-method? get [ method-declaration prepend ] [ drop ] if ]
[ dup "method-generic" word-prop specializer ] bi
[ specialize-quot ] [ nip ] if* ;
[ specialize-quot ] [ drop ] if* ;
: standard-method? ( method -- ? )
dup method-body? [