outdated-tuple? ( tuple assoc -- ? ) (original) (raw)

outdated-tuple? ( tuple assoc -- ? )

Vocabulary
classes.tuple.private

Inputs

tuple an object
assoc an object

Outputs

? an object

Definition

USING: assocs classes kernel words ;

IN: classes.tuple.private

: outdated-tuple? ( tuple assoc -- ? )
[ [ layout-of ] dip key? ]
[ drop class-of "forgotten" word-prop not ] 2bi and ;