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

Vocabulary

modern.slices

Inputs

expected	an object
actual	an object

Outputs

actual/*

an object

Definition

USING: kernel sequences unicode ;

IN: modern.slices

: check-sequence-insensitive ( expected actual -- actual/* )
    2dup [ >lower ] bi@ sequence=
    [ nip ] [ expected-sequence-error ] if ;