#lang racket ;; ============================================================================= ;; SMoLTalk (Fall 2020): inheritance.rkt ;; ============================================================================= (require "test-support.rkt") (provide Root class call new) (define (raise-method-not-found-exception method-name) (raise-user-error (~a "Could not find method \"" method-name "\" in given object."))) ;; DO NOT EDIT ABOVE THIS LINE ================================================= (define Root ; TODO: Implement me! ....) (define-syntax class ; TODO: Implement me! ....) (define-syntax call ; TODO: Implement me! ....) (define-syntax new ; TODO: Implement me! ....)