<open-tag> ( open name props close -- tag )

Vocabulary

modern.html

Inputs

open	an object
name	an object
props	an object
close	an object

Outputs

tag

an object

Definition

USING: accessors kernel strings ;

IN: modern.html

: <open-tag> ( open name props close -- tag )
    open-tag new swap >>close swap >>props swap >string >>name
    swap >string >>open V{ } clone >>children ;