FUNCTOR: define-literal ( CLASSBEGINENDTOFROM--): 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