check-sequence ( expected actual -- actual/* )

Vocabulary

modern.slices

Inputs

expected	an object
actual	an object

Outputs

actual/*

an object

Definition

USING: kernel sequences ;

IN: modern.slices

: check-sequence ( expected actual -- actual/* )
    2dup sequence= [ nip ] [ expected-sequence-error ] if ;