Paste: LITERAL:

FUNCTOR: define-literal ( CLASS BEGIN END TO FROM -- )

: BEGIN END TO parse-literal ; parsing
M: CLASS pprint* pprint-object ;
M: CLASS pprint-delims drop BEGIN END ;
M: CLASS >pprint-sequence FROM ;

;FUNCTOR

: LITERAL:
    scan-object
    scan-object
    scan-object
    scan-object
    scan-object
    define-literal ; parsing

New Annotation