(load "ub4-1b.scm")

;;; SIGNATUR
;;; student-ersetze-nachname: student string -> student
;;; ERKLÄRUNG
;;; (student-ersetze-nachname s n) erzeugt eine Kopie von s, bei der das
;;; nachname-Feld durch n ersetzt ist.
;;; BEISPIEL
;;; (student-ersetze-nachname (make-student "Reinhard" "Franck" "0070815")
;;;                           "Reinhardson")
;;; DEFINITION
(define student-ersetze-nachname
  (lambda (s n)
    (make-student (student-vorname s)
                  n
                  (student-matrikelnr s))))