drop-comment ( line -- line' )


Vocabulary
simple-flat-file

Inputs
linean object


Outputs
line'an object


Definition
USING: kernel sequences ;

IN: simple-flat-file

: drop-comment ( line -- line' )
dup [ "#@" member? ] find drop [ head ] when* ;