(load "ub10-3b.scm")

;;; SIGNATUR
;;; make-traffic-light-counterpart: string -> traffic-light-counterpart
;;; ERKLÄRUNG
;;; Konstruktorfunktion für Objekte der Klasse traffic-light-counterpart.
;;; Ein Objekt der Klasse traffic-light-counterpart unterscheidet sich
;;; von einem Objekt der Klasse traffic-light dadurch, daß es bei Aufruf der
;;; Methode reset in Zustand rot geht.
;;; DEFINITION
(define make-traffic-light-counterpart
  (lambda (name)
    (let ((super (make-traffic-light name)))
      (lambda (message)
        (case message
          ((reset)
           (lambda (this)
             (send super 'reset)
             (send super 'step)
             (send super 'step)))
          (else
           (get-method super message)))))))