USING: accessors kernel locals math parser sequences words ; IN: prefix-words SYNTAX: if: 2 [ scan-object suffix! ] times \ if suffix! ; SYNTAX: PREFIX-WORD: scan-word [ name>> ":" append create-in ] keep scan-number [ [ [ scan-object suffix! ] times suffix! ] 2curry define-syntax ] 3curry append! ;