check-for-compound-syntax ( n/f seq obj -- n/f seq obj )

Vocabulary

modern

Inputs

n/f	an object
seq	an object
obj	an object

Outputs

n/f	an object
seq	an object
obj	an object

Definition

USING: kernel math sequences ;

IN: modern

: check-for-compound-syntax ( n/f seq obj -- n/f seq obj )
    dup length 1 > [ compound-syntax-disallowed ] when ;