adjust-ptr ( ptr -- ptr' )

Vocabulary

random.lagged-fibonacci.private

Inputs

ptr

an object

Outputs

ptr'

an object

Definition

USING: kernel math ;

IN: random.lagged-fibonacci.private

: adjust-ptr ( ptr -- ptr' ) 1 - dup 0 < [ drop p-r ] when ;
    inline