fuel-pprint ( obj -- )

Vocabulary

fuel.pprint

Inputs

obj

an object

Outputs

None

Definition

IN: fuel.pprint

GENERIC: fuel-pprint ( obj -- )

Methods

USING: accessors arrays continuations fuel.pprint
fuel.pprint.private kernel sequences ;

M: condition fuel-pprint
    [ error>> ] [ fuel-restarts ] bi 2array condition prefix
    fuel-pprint ;


USING: continuations fuel.pprint io kernel ;

M: continuation fuel-pprint drop ":continuation" write ; inline


USING: fuel.pprint io kernel ;

M: f fuel-pprint drop "nil" write ; inline


USING: fuel.pprint math prettyprint ;

M: integer fuel-pprint pprint ; inline


USING: accessors arrays combinators fuel.pprint
fuel.pprint.private lexer sequences ;

M: lexer-error fuel-pprint
    {
        [ line>> ]
        [ column>> ]
        [ line-text>> ]
        [ fuel-restarts ]
    } cleave 4array lexer-error prefix fuel-pprint ;


USING: fuel.pprint kernel prettyprint ;

M: object fuel-pprint pprint ; inline


USING: fuel.pprint fuel.pprint.private quotations ;

M: quotation fuel-pprint "[" "]" fuel-pprint-sequence ; inline


USING: accessors continuations fuel.pprint ;

M: restart fuel-pprint name>> fuel-pprint ; inline


USING: fuel.pprint fuel.pprint.private sequences ;

M: sequence fuel-pprint "(" ")" fuel-pprint-sequence ; inline


USING: accessors arrays fuel.pprint kernel sequences
source-files.errors ;

M: source-file-error fuel-pprint
    [ path>> ] [ error>> ] bi 2array source-file-error prefix
    fuel-pprint ;


USING: accessors fuel.pprint source-files ;

M: source-file fuel-pprint path>> fuel-pprint ;


USING: fuel.pprint prettyprint strings ;

M: string fuel-pprint pprint ; inline


USING: classes.tuple fuel.pprint kernel ;

M: tuple fuel-pprint tuple>array fuel-pprint ; inline


USING: accessors fuel.pprint fuel.pprint.private io kernel
sequences strings words ;

M: word fuel-pprint
    name>> V{ } clone [ fuel-maybe-scape append ] reduce
    >string write ;