>>shape-type ( object value -- object )


Vocabulary
accessors

Inputs
objectan object
valuean object


Outputs
objectan object


Definition
USING: kernel ;

IN: accessors

: >>shape-type ( object value -- object ) over shape-type<<
; inline