compute-fixups ( continuation error -- seq )

Vocabulary

fixups

Inputs

continuation	an object
error	an object

Outputs

seq

an object

Definition

IN: fixups

GENERIC: compute-fixups ( continuation error -- seq )

Methods

USING: fixups kernel ;

M: f compute-fixups 2drop { } ;


USING: accessors fixups kernel vocabs ;

M: no-vocab compute-fixups
    [ name>> vocab-renames compute-assoc-fixups ] [ drop { } ]
    if* ;


USING: accessors fixups kernel vocabs.parser ;

M: no-word-error compute-fixups
    [ name>> word-renames compute-assoc-fixups ] [ drop { } ]
    if* ;


USING: classes.tuple fixups kernel slots.private ;

M: object compute-fixups
    "error" over ?offset-of-slot
    [ slot compute-fixups ] [ 2drop { } ] if* ;