Complete exercise 3.7

2022-04-21 23:02:01 +01:00 · 2022-04-21 23:02:01 +01:00 · 3d8bad6a34
parent ab4554fcd8
commit 3d8bad6a34
1 changed files with 8 additions and 0 deletions
--- a/3_3.rkt
+++ b/3_3.rkt
@ -28,3 +28,11 @@
              (error "Call the cops")
              (error "Incorrect password")))))
  dispatch)
+
+(define (make-joint linkee-account linkee-password account-password)
+  (lambda (password m)
+    (if (eq? password account-password)
+        (linkee-account linkee-password m)
+        (error "Incorrect joint password"))))
+
+