both-with? ( obj a b quot -- ? )

Vocabulary

persistent.heaps.private

Inputs

obj	an object
a	an object
b	an object
quot	an object

Outputs

?

an object

Definition

USING: kernel ;

IN: persistent.heaps.private

: both-with? ( obj a b quot -- ? )
    swap [ with ] dip swap both? ; inline