wait-for-disconnect ( frame -- ? )

Vocabulary

stomp

Inputs

frame

an object

Outputs

?

an object

Definition

USING: accessors assocs kernel namespaces ;

IN: stomp

: wait-for-disconnect ( frame -- ? )
    stomp-receipt-disconnect get
    [ swap header>> "receipt-id" of = not ] [ drop t ] if* ;