refactor: changes spaces and instructions

use if, remove useless begin, 1 tab = 4 spaces

server.scm

@@ -18,7 +18,7 @@
 (use-modules (ice-9 binary-ports) (ice-9 iconv) (rnrs bytevectors))
 
 (define chaussette (socket PF_INET SOCK_STREAM 0))
-(bind chaussette AF_INET INADDR_ANY 8082)
+(bind chaussette AF_INET INADDR_ANY 8081)
 (listen chaussette 1)
 (display "Chaussette en place")
 (newline)
@@ -33,13 +33,10 @@
         (string #\return #\nl)))
 
     ;; si ya pas de \cr\nl, buffer trop grand ou mal formaté
-            (when (not pos) (begin 
-                (display (string-append "59 Bad Request" (string #\return #\nl)) out))
-            )
-
-            (unless (not pos) (begin 
+    (if (not pos) 
+        (display (string-append "59 Bad Request" (string #\return #\nl)) out)
         (display "all ok")
-            ))
+    )
 
     (shutdown out 2)
 )))