<close-tag> ( name -- tag )

Vocabulary

modern.html

Inputs

name

an object

Outputs

tag

an object

Definition

USING: accessors kernel sequences strings ;

IN: modern.html

: <close-tag> ( name -- tag )
    close-tag new swap >string rest rest but-last >>name ;