split-decimal ( str -- neg? dollars cents )

Vocabulary

money

Inputs

str

an object

Outputs

neg?	an object
dollars	an object
cents	an object

Definition

USING: kernel splitting ;

IN: money

: split-decimal ( str -- neg? dollars cents )
    "." split1 [ "-" ?head swap ] dip ;