From 3d8bad6a34cee9427541a5e7751c2d23fd1070a9 Mon Sep 17 00:00:00 2001
From: Oliver Payne <ompayne@gmail.com>
Date: Thu, 21 Apr 2022 23:02:01 +0100
Subject: [PATCH] Complete exercise 3.7

---
 3_3.rkt | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/3_3.rkt b/3_3.rkt
index 65457c0..f790e72 100644
--- 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"))))
+
+