consume-r ( n -- seq )

Vocabulary

stack-checker.backend

Inputs

n

an object

Outputs

seq

an object

Definition

USING: kernel math sequences stack-checker.errors
stack-checker.state ;

IN: stack-checker.backend

: consume-r ( n -- seq )
    meta-r 2dup length > [ too-many-r> ] when
    [ swap tail* ] [ shorten-by ] 2bi ;