adjust-ptr ( ptr -- ptr' )


Vocabulary
random.lagged-fibonacci.private

Inputs
ptran 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