one/seven - Add comments.

1 files changed, 3 insertions, 0 deletions

diff --git a/one/seven.scm b/one/seven.scm
index cc3c7b9..0c78ab8 100644
--- a/one/seven.scm
+++ b/one/seven.scm
@@ -10,6 +10,7 @@
 
 (use-modules (one six))
 
+;;;; start yak shaving
 (define (gen-good-enough tolerance)
   (lambda (guess x)
     (< (abs (- (square guess) x)) tolerance)))
@@ -31,6 +32,8 @@
         (cons tolerance custom-sqrt)
         (cons (cons tolerance custom-sqrt)
               (tolerances-and-sqrt x (/ tolerance 10))))))
+;;;; end yak shaving
+
 ;;; start excercise 1.1.7
 (define (good-enough-alt? guess prev-guess)
   (< (abs (- guess prev-guess)) 0.001))