vm-error? ( object -- ? )

Vocabulary

debugger

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the vm-error class.

Definition

USING: arrays combinators.short-circuit kernel kernel.private
math math.order sequences sequences.private ;

IN: debugger

: vm-error? ( object -- ? )
    dup array? [
        dup length 2 <
        [ drop f ] [
            {
                [ first-unsafe KERNEL-ERROR = ]
                [
                    second-unsafe 0 kernel-error-count 1 -
                    between?
                ]
            } 1&&
        ] if
    ] [ drop f ] if ;