receipt-id ( frame -- frame )

Vocabulary

stomp

Inputs

frame

an object

Outputs

frame

an object

Definition

USING: accessors kernel math.parser namespaces ;

IN: stomp

: receipt-id ( frame -- frame )
    dup command>> "DISCONNECT" = stomp-receipts? get or [
        stomp-receipt# counter number>string
        [ "receipt-id" set-header ] [
            over command>> "DISCONNECT" =
            [ receipt-id stomp-receipt-disconnect set-global ]
            [ drop ] if
        ] bi
    ] when ;