Handbook
Glossary
ensure-same-underlying ( slice1 slice2 -- slice1 slice2 )
Vocabulary
sequences.extras
Inputs
slice1
a
slice
slice2
a
slice
Outputs
slice1
a
slice
slice2
a
slice
Definition
USING:
accessors
kernel
;
IN:
sequences.extras
:
ensure-same-underlying
( slice1 slice2 -- slice1 slice2 )
2dup
[
seq>>
]
bi@
eq?
[
underlying-mismatch
]
unless
;