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