add-digit-to-num ( num digit -- num )

Vocabulary

csexp

Inputs

num	an object
digit	an object

Outputs

num

an object

Definition

USING: kernel math ;

IN: csexp

: add-digit-to-num ( num digit -- num )
    [ 10 * ] [ digit>num ] bi* + ;