(load "send.scm") ; Enthält die Definitionen von no-method, get-method und send

;;; SIGNATUR
;;; make-bulb: string -> bulb
;;; ERKLÄRUNG
;;; Konstruktorfunktion für Objekte der Klasse bulb. Das Argument ist die
;;; Farbe der Glühbirne.
;;; Die Klasse kennt folgende Methoden:
;;; turn-on: -> VOID
;;; (send b 'turn-on) gibt eine Meldung aus, aus der die Farbe hervorgeht und
;;; die Tatsache, daß die Birne eingeschaltet wurde.
;;; (send b 'turn-off) gibt eine Meldung aus, aus der die Farbe hervorgeht und
;;; die Tatsache, daß die Birne ausgeschaltet wurde.
;;; DEFINITION
(define make-bulb
  (lambda (color)
    (lambda (message)
      (case message
        ((turn-on)
         (lambda (this)
           (display color)
           (display " wurde eingeschaltet")
           (newline)))
        ((turn-off)
         (lambda (this)
           (display color)
           (display " wurde ausgeschaltet")
           (newline)))
        (else
         (make-no-method 'bulb message))))))