USING: kernel lexer parser words quotations compiler.units ; IN: sto : sto \ 1quotation parsed scan current-vocab create dup set-word dup "t" "val" set-word-prop literalize parsed \ swap parsed [ define ] parsed \ with-compilation-unit parsed ; parsing