learning-sicp

My embarrassing half assed SICP run.
git clone https://kaka.farm/~git/learning-sicp
Log | Files | Refs

exercise-7.scm (464B)

      1 (define-library (sicp solutions chapter-3 exercise-7)
      2   (import (scheme base))
      3   (export
      4    make-joint
      5    )
      6 
      7   (begin
      8     (define (make-joint password-protected-account password-protected-account-password new-password)
      9       (lambda (whisper m)
     10         (if (eq? whisper new-password)
     11             (begin
     12               (password-protected-account
     13                password-protected-account-password
     14                m))
     15             (lambda x "Incorrect password"))))))