(make-condition) ( table questions question -- condition )

Vocabulary

regexp.classes

Inputs

table	an object
questions	an object
question	an object

Outputs

condition

an object

Definition

USING: kernel ;

IN: regexp.classes

: (make-condition) ( table questions question -- condition )
    [ 2nip ] [ swap [ t assoc-answer ] dip make-condition ]
    [ swap [ f assoc-answer ] dip make-condition ] 3tri 2dup =
    [ 2nip ] [ <condition> ] if ;