Joint accounts

Consider the bank account objects created by make-account , with the password modification described in exercise 3.3 . Suppose that our banking system requires the ability to make joint accounts. Define a procedure make-joint that accomplishes this. Make-joint should take three arguments. The first is a password-protected account. The second argument must match the password with which the account was defined in order for the make-joint operation to proceed. The third argument is a new password. Make-joint is to create an additional access to the original account using the new password. For example, if peter-acc is a bank account with password open-sesame , then

(define paul-acc
    (make-joint peter-acc 'open-sesame 'rosebud))

will allow one to make transactions on peter-acc using the name paul-acc and the password rosebud . You may wish to modify your solution to exercise 3.3 to accommodate this new feature.

There are no comments yet.

Authentication required

You must log in to post a comment.