SLOT-CONSTRUCTOR:

Vocabulary

constructors

Inputs

parsed

an object

Outputs

parsed

an object

Definition

USING: accessors kernel parser sequences words ;

IN: constructors

SYNTAX: SLOT-CONSTRUCTOR:
    scan-new-word [ name>> "(" append create-reset ] keep '[
        scan-rest-input-effect in>> _ '[ _ _ slots>boa ] append!
    ] define-syntax ;