cons-state

Vocabulary

lists

Definition

IN: lists

TUPLE: cons-state { car read-only } { cdr read-only } ;

Methods

USING: accessors lists ;

M: cons-state car car>> ;


USING: accessors lists ;

M: cons-state cdr cdr>> ;


USING: kernel lists make math namespaces prettyprint.backend
prettyprint.config prettyprint.custom prettyprint.sections
sequences ;

M: cons-state pprint*
    [
        <flow dup pprint-delims [
            pprint-word dup pprint-narrow? <inset [
                building get length-limit get
                [ [ ~quotation~ ] dip [ length ] curry compose ]
                dip [ < and ] curry compose
                [ uncons swap , ] while
            ] { } make [ pprint* ] each dup list?
            [ nil? [ "~more~" text ] unless ]
            [ "." text pprint* ] if block>
        ] dip pprint-word block>
    ] check-recursion ;


USING: kernel lists prettyprint.custom ;

M: cons-state pprint-delims drop \ L{ \ } ;