STARTUP-HOOK:

Vocabulary

syntax

Syntax

STARTUP-HOOK: word/quotation

Word description

Parses a word or a quotation and sets it as the startup hook for the current vocabulary.

Definition

USING: accessors init kernel parser quotations sequences
vocabs.parser ;

IN: syntax

SYNTAX: STARTUP-HOOK:
    scan-word dup \ [ =
    [ drop parse-quotation ] [ 1quotation ] if
    current-vocab name>> [ add-startup-hook ] 2curry append! ;