: define-fallback ( word -- )
    dup define-singleton-class \ ; parse-until swap
    '[ [ _ swap create-method-in ] [ 1quotation [ get ] prepose ] bi define ]
    each ;

SYNTAX: FALLBACK: CREATE-CLASS define-fallback ;