(no commit message)

[gacela.git] / src / gacela_server.scm

diff --git a/src/gacela_server.scm b/src/gacela_server.scm
index ef7b24e881114e973b0fd88ac896129e46b107ed..978ea8c56388e5523301f219606045dceb4c3eb5 100644 (file)
--- a/src/gacela_server.scm
+++ b/src/gacela_server.scm
@@ -58,11 +58,13 @@
               (cond ((char-ready? sock)
                      (catch #t
                             (lambda ()
-                              (let ((exp (read sock)))
+                              (let ((exp (car (read sock))))
+                                (format #t "~a~%" exp)
                                 (cond ((eof-object? exp)
                                        (close sock))
                                       (else
-                                       (format sock "~a~%" (primitive-eval exp))))))
+                                       (format #t "~a~%" (primitive-eval exp))
+                                       (format sock "~a" (primitive-eval exp))))))
                             (lambda (key . args)
                               (let ((fmt (string-concatenate (list (cadr args) "~%")))
                                     (params (caddr args)))