Complete exercise 3.7
This commit is contained in:
parent
ab4554fcd8
commit
3d8bad6a34
8
3_3.rkt
8
3_3.rkt
|
@ -28,3 +28,11 @@
|
||||||
(error "Call the cops")
|
(error "Call the cops")
|
||||||
(error "Incorrect password")))))
|
(error "Incorrect password")))))
|
||||||
dispatch)
|
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"))))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue