diff --git a/exercises/practice/grade-school/.meta/example.el b/exercises/practice/grade-school/.meta/example.el index 765ab6d7..9dc2f7c0 100644 --- a/exercises/practice/grade-school/.meta/example.el +++ b/exercises/practice/grade-school/.meta/example.el @@ -28,9 +28,6 @@ (defun grade (school grade) (gethash grade (school-roster school))) -(defun set-grade (school grade newval) - (puthash grade (sort newval #'string<) (school-roster school))) - (provide 'grade-school) ;;; grade-school.el ends here diff --git a/exercises/practice/grade-school/grade-school-test.el b/exercises/practice/grade-school/grade-school-test.el index e173b439..1d275368 100644 --- a/exercises/practice/grade-school/grade-school-test.el +++ b/exercises/practice/grade-school/grade-school-test.el @@ -6,9 +6,10 @@ (load-file "grade-school.el") -(declare-function roster "grade-school.el" (students)) -(declare-function add "grade-school.el" (students)) -(declare-function grade "grade-school.el" (desired-grade students)) +(declare-function make-school "grade-school.el") +(declare-function roster "grade-school.el" (school)) +(declare-function add "grade-school.el" (school name grade)) +(declare-function grade "grade-school.el" (school grade)) (ert-deftest roster-is-empty-when-no-student-is-added () diff --git a/exercises/practice/grade-school/grade-school.el b/exercises/practice/grade-school/grade-school.el index 784cae79..9c52d21d 100644 --- a/exercises/practice/grade-school/grade-school.el +++ b/exercises/practice/grade-school/grade-school.el @@ -4,14 +4,16 @@ ;;; Code: +(defun make-school () + (error "Delete this S-Expression and write your own implementation")) -(defun roster (students) +(defun roster (school) (error "Delete this S-Expression and write your own implementation")) -(defun add (students) +(defun add (school name grade) (error "Delete this S-Expression and write your own implementation")) -(defun grade (desired-grade students) +(defun grade (school grade) (error "Delete this S-Expression and write your own implementation"))