Paste: LITERAL:

Author: slava
Mode: factor
Date: Sun, 16 Nov 2008 07:49:30
Plain Text | 
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

Summary:
Author:
Mode:
Body: