USING: kernel lexer parser words quotations compiler.units fry ;

IN: sto

: get-create-word ( str -- word )
    current-vocab create
    [ set-word ] keep ;

: call-parsed
    parsed \ call parsed ; inline

: sto
    scan get-create-word 
    '[ 1quotation _ swap [ define ] with-compilation-unit ] call-parsed ; parsing