X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_server.scm;fp=src%2Fgacela_server.scm;h=978ea8c56388e5523301f219606045dceb4c3eb5;hb=1b020d036cd9adcf8077901dd453e9d61257cbb9;hp=ef7b24e881114e973b0fd88ac896129e46b107ed;hpb=a6e0eb4c5e06bb6107acf40eb9f6a89e691d585e;p=gacela.git

diff --git a/src/gacela_server.scm b/src/gacela_server.scm
index ef7b24e..978ea8c 100644
--- 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)))