1 665c255d 2023-08-04 jrmu (define (make-generic-file division file)
 2 665c255d 2023-08-04 jrmu   (list division file))
 3 665c255d 2023-08-04 jrmu (define (division-of-generic-file gf)
 4 665c255d 2023-08-04 jrmu   (car gf))
 5 665c255d 2023-08-04 jrmu (define (file-of-generic-file gf)
 6 665c255d 2023-08-04 jrmu   (cadr gf))
 7 665c255d 2023-08-04 jrmu (define (get-record employee file)
 8 665c255d 2023-08-04 jrmu   ((get 'get-record
 9 665c255d 2023-08-04 jrmu 	(division-of-generic-file file))
10 665c255d 2023-08-04 jrmu    employee
11 665c255d 2023-08-04 jrmu    (file-of-generic-file file)))
12 665c255d 2023-08-04 jrmu (define (get-salary employee)
13 665c255d 2023-08-04 jrmu   ((get 'get-salary
14 665c255d 2023-08-04 jrmu 	(division-of-generic-employee employee))
15 665c255d 2023-08-04 jrmu    (employee-of-generic-employee employee)))