define-schema ( schema -- )

Vocabulary

bare

Inputs

schema

an object

Outputs

None

Definition

USING: accessors assocs kernel parser words words.constant ;

IN: bare

: define-schema ( schema -- )
    types>> [
        [ create-word-in dup reset-generic ] [ define-constant ]
        bi*
    ] assoc-each ;