dimension>number ( string -- number )

Vocabulary

alien.fortran.private

Inputs

string

an object

Outputs

number

an object

Definition

USING: kernel math.parser ;

IN: alien.fortran.private

: dimension>number ( string -- number )
    dup "*" = [ drop 0 ] [ string>number ] if ;