read-exclamation ( n string slice -- n' string obj )

Vocabulary

modern

Inputs

n	an object
string	an object
slice	an object

Outputs

n'	an object
string	an object
obj	an object

Definition

USING: combinators.short-circuit kernel modern.slices sequences
;

IN: modern

: read-exclamation ( n string slice -- n' string obj )
    dup { [ "!" sequence= ] [ "#!" sequence= ] } 1||
    [ take-comment ] [ merge-slice-til-whitespace ] if ;