: add-fallback-method ( singleton method -- )
    [ create-method-in ] [ 1quotation [ get ] prepose ] bi define ;

: define-fallback ( methods class -- )
    dup define-singleton-class [ swap add-fallback-method ] curry each ;

SYNTAX: FALLBACK:
    CREATE-CLASS \ ; parse-until swap define-fallback ;