wrap-in-model ( object -- model )

Vocabulary

gml.viewer

Inputs

object

an object

Outputs

model

an object

Definition

USING: kernel models ;

IN: gml.viewer

: wrap-in-model ( object -- model )
    dup model? [ <model> ] unless ;