RosettaCodeData/Task/Inheritance-Multiple/Racket/inheritance-multiple.rkt

11 lines
216 B
Racket

#lang racket
(define camera<%> (interface ()))
(define mobile-phone<%> (interface ()))
(define camera-phone%
(class* object% (camera<%> mobile-phone<%>)
(super-new)
;; implement methods here
))