Handbook
Glossary
unconsult-method ( word consultation -- )
Vocabulary
delegate
.
private
Inputs
word
an
object
consultation
an
object
Outputs
None
Definition
USING:
accessors
definitions
generic
kernel
sequences
words
;
IN:
delegate.private
:
unconsult-method
( word consultation -- )
[
class>>
swap
first
?lookup-method
]
keep
over
[
over
"consultation"
word-prop
eq?
[
forget
]
[
drop
]
if
]
[
2drop
]
if
;