lowercase-name-with-extra-underscore ( name -- name' )

Vocabulary

alien.fortran.private

Inputs

name

an object

Outputs

name'

an object

Definition

USING: ascii kernel sequences ;

IN: alien.fortran.private

: lowercase-name-with-extra-underscore ( name -- name' )
    >lower 95 over member? [ "__" append ] [ "_" append ] if ;