cleanup

GNUmakefile

@@ -358,7 +358,7 @@ tmp/pvenv.tar: $(wildcard libraries/*/*.scm)\
 	tar -cf $$tar0 -T /dev/null ;\
 	cd libraries/lib/gtk-3 ;\
 	   find * -name "*.scm"  -exec bash -c "echo '{}'; $(PVENV_ADD)" \;;\
-	cd ../.. ;\
+	cd ../../.. ;\
 	export tar0=${abspath $@} ;\
 	cd libraries ;\
 	   find . -name "*.scm"  -exec bash -c "echo '{}'; $(PVENV_ADD)" \;;\

libraries/http/server

@@ -114,7 +114,6 @@
    ; -=( Windows )=----------------------------
    (Windows
       (begin
-         (print "Windows")
          (define (ls folder)
             (list "cmd.exe" "/c" (string-append
                "dir " (s/\//\\/g folder))))
@@ -152,7 +151,6 @@
    ; -=( Unix )=-------------------------------
    (else
       (begin
-         (print "Others")
          (define (ls folder)
             (list "/bin/sh" "-c" (string-append
                "ls -lah " folder)))

libraries/owl/io.scm

@@ -131,7 +131,7 @@
       (case-lambda
          (() (wait-mail)) ; just a regular "wait-mail"
          ((ms) (wait-mail-ms ms #f)) ; wait mail with timeout, returns a mail if got one or "#false"
-         ((ms default) (wait-mail-ms default)) ; ... but returns [#false default]
+         ((ms default) (wait-mail-ms default))                             ; ... or [#false default]
       ))
 
       ; returns #true if port is ready to be read, #false if timeout

tests/wait.scm

@@ -4,8 +4,8 @@
    (let loop ((n 0))
       (unless (check-mail)
          (print n)
-         (wait 100) ; 1 second wait
+         (wait 100) ; 100 ms wait
          (loop (+ n 1))))))
 
-(wait 520)
+(wait 540)
 (mail 'timer #n) ; stop timer and autoexit program