<embedded-language> ( open payload close -- embedded-language )

Vocabulary

modern.html

Inputs

open	an object
payload	an object
close	an object

Outputs

embedded-language

an object

Definition

USING: accessors kernel ;

IN: modern.html

: <embedded-language>
    ( open payload close -- embedded-language )
    embedded-language new swap >>close swap >>payload
    swap >>open ; inline