trim-comments ( str -- str' )

Vocabulary

cuesheet.private

Inputs

str

an object

Outputs

str'

an object

Definition

USING: kernel sequences ;

IN: cuesheet.private

: trim-comments ( str -- str' )
    dup [ 59 = ] find drop [ head ] when* ;