Paste: B: (B for parsing-words)

USING: arrays definitions fry grouping io kernel lexer locals
locals.parser locals.types make math math.order math.parser
multiline namespaces parser quotations sequences strings
tools.continuations vocabs.parser words ;
IN: shortlocals


SYNTAX: B: scan-word definition [ break "now press O I" drop ] prepose call( accum -- accum ) ;