<multiple-choice-question> ( generator n -- multiple-choice-question )

Vocabulary

quiz

Inputs

generator	an object
n	an object

Outputs

multiple-choice-question

an object

Definition

USING: accessors kernel ;

IN: quiz

: <multiple-choice-question>
    ( generator n -- multiple-choice-question )
    multiple-choice-question new swap >>n swap >>generator ;