From 73a4828812f247eb8c6ee5eced7cf9b12501f5b8 Mon Sep 17 00:00:00 2001
From: rsiddharth <rsiddharth@ninthfloor.org>
Date: Sat, 2 Apr 2016 00:49:10 +0000
Subject: one/seven - Add comments.

---
 one/seven.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'one')

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))
-- 
cgit v1.2.3