typo in specialize-method
parent
32cba4dad3
commit
333943188e
|
@ -65,7 +65,7 @@ t specialize-method? set-global
|
||||||
: specialize-method ( quot method -- quot' )
|
: specialize-method ( quot method -- quot' )
|
||||||
[ specialize-method? get [ method-declaration prepend ] [ drop ] if ]
|
[ specialize-method? get [ method-declaration prepend ] [ drop ] if ]
|
||||||
[ dup "method-generic" word-prop specializer ] bi
|
[ dup "method-generic" word-prop specializer ] bi
|
||||||
[ specialize-quot ] [ nip ] if* ;
|
[ specialize-quot ] [ drop ] if* ;
|
||||||
|
|
||||||
: standard-method? ( method -- ? )
|
: standard-method? ( method -- ? )
|
||||||
dup method-body? [
|
dup method-body? [
|
||||||
|
|
Loading…
Reference in New Issue