: define-fallback ( methods singleton -- )
    '[ [ _ swap create-method-in ] [ 1quotation [ get ] prepose ] bi define ]
    each ;

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