<element-pen> ( color -- pen )

Vocabulary

periodic-table

Inputs

color

an object

Outputs

pen

an object

Definition

USING: accessors kernel ;

IN: periodic-table

: <element-pen> ( color -- pen ) element-pen new swap >>color ;