define-core-syntax ( name quot -- )

Vocabulary

bootstrap.syntax

Inputs

name	an object
quot	an object

Outputs

None

Definition

USING: kernel vocabs.parser words ;

IN: bootstrap.syntax

: define-core-syntax ( name quot -- )
    [ [ "syntax" lookup-word ] [ no-word-error ] ?unless ] dip
    define-syntax ;