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