/rem ( f n -- q r )

Vocabulary

calendar.private

Inputs

f	an object
n	an object

Outputs

q	an object
r	an object

Definition

USING: kernel math ;

IN: calendar.private

: /rem ( f n -- q r )
    [ /mod ] keep over 0 < [ + [ -1 + ] dip ] [ drop ] if ;
    inline