From e158b49c4e44ace4ddd61442247f8785c1cf25e3 Mon Sep 17 00:00:00 2001
From: erana <jceuppen@vub.ac.be>
Date: Mon, 23 Jan 2012 14:17:53 +0900
Subject: [PATCH] scratch directory

---
 scsh/scratch/scratch.scm | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/scsh/scratch/scratch.scm b/scsh/scratch/scratch.scm
index a783fba..de8f146 100644
--- a/scsh/scratch/scratch.scm
+++ b/scsh/scratch/scratch.scm
@@ -1,4 +1,4 @@
-;;; thttpdaemon.scm - a scheme web daemon
+;;; scratch.scm - a scheme utility library
 ;;;
 ;;; Copyright (c) 2011-2012 Johan Ceuppens
 ;;;
@@ -26,20 +26,20 @@
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
-    (define (get-response-f lst)
-      (define (get return)
-        (for-each
-         (lambda (element)
-           (set! return (call-with-current-continutation
-                         (lambda (r)
-                           (set! get r)
-                           (return element)))))
-         lst)
-        (return 'end-generate))
+(define (get-response-f lst)
+  (define (get return)
+    (for-each
+     (lambda (element)
+       (set! return (call-with-current-continutation
+                     (lambda (r)
+                       (set! get r)
+                       (return element)))))
+     lst)
+    (return 'end-generate))
 
-      (define (gen)
-        (call-with-current-continuation get))
-      gen)
+  (define (gen)
+    (call-with-current-continuation get))
+  gen)
 
-    (define (get-response l)
-      (get-response-f l))
+(define (get-response l)
+  (get-response-f l))