From 888f8aef0fbc8c3b29b785796cf8f4a1184cdd72 Mon Sep 17 00:00:00 2001
From: Nikolay Puzanov <punzik@gmail.com>
Date: Thu, 12 Dec 2013 19:17:38 +0400
Subject: [PATCH] Clean source

---
 kot-kit.scm | 30 ++++++++++++------------------
 1 file changed, 12 insertions(+), 18 deletions(-)

diff --git a/kot-kit.scm b/kot-kit.scm
index 7f48575..29c4e8d 100644
--- a/kot-kit.scm
+++ b/kot-kit.scm
@@ -1,31 +1,25 @@
 (import (rnrs io ports (6)))  ;; Guile
 ;(require rnrs/io/ports-6)     ;; Racket
 
-(setlocale LC_ALL "")
-
-(define out-port (current-output-port))
-(define in-port (current-input-port))
+(setlocale LC_ALL "") ;; Guile
 
 (define (println . params)
-  (for-each (lambda (x) (display x out-port)) params)
-  (newline out-port) #f)
+  (for-each (lambda (x) (display x)) params)
+  (newline))
 
 ;; Helper functions
+(define (answer . params)
+  (for-each (lambda (x) (display x)) params)
+  (flush-output-port (current-output-port))
+  (get-line (current-input-port)))
+
 (define (yes? . params)
-  (for-each (lambda (x) (display x out-port)) params)
-  (display "? " out-port)
-  (flush-output-port out-port)
-  (let ((ans (get-line in-port)))
+  (let ((ans (apply answer (append params '("? ")))))
     (if (= (string-length ans) 0)
       #f
       (or
-        (equal? (string-ref ans 0) #\y)
-        (equal? (string-ref ans 0) #\д)))))
-
-(define (answer . params)
-  (for-each (lambda (x) (display x out-port)) params)
-  (flush-output-port out-port)
-  (get-line in-port))
+        (char-ci=? (string-ref ans 0) #\y)
+        (char-ci=? (string-ref ans 0) #\д)))))
 
 ;; Copy tree
 (define (copy-pet-tree pet-tree)
@@ -65,7 +59,7 @@
                (call-with-input-file TREE-FILE-NAME read)
                '())))
   (let ((tree (game-round pet-tree "Кот")))
-    (newline out-port)
+    (newline)
     (if (yes? "Играем еще")
       (loop tree)
       (begin