scratch directory

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,7 +26,7 @@
 ;;; (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-response-f lst)
   (define (get return)
     (for-each
      (lambda (element)
@@ -41,5 +41,5 @@
     (call-with-current-continuation get))
   gen)
 
-    (define (get-response l)
+(define (get-response l)
   (get-response-f l))