left ( n -- m )

Vocabulary

heaps.private

Inputs

n

an object

Outputs

m

an object

Definition

USING: kernel.private math math.private ;

IN: heaps.private

: left ( n -- m )
    { fixnum } declare 1 fixnum-shift-fast 1 fixnum+fast ;
    inline