pstk fixes on Kawa, Chicken and STklos

Makefile

@@ -1,5 +1,5 @@
 SCHEME=chibi
-DOCKER_TAG=head
+DOCKER_TAG=latest
 RNRS=r7rs
 LIBRARY=system
 AUTHOR=Retropikzel
@@ -66,7 +66,7 @@ test-docker: testfiles
 		DOCKER_TAG=${DOCKER_TAG} \
 		COMPILE_R7RS=${SCHEME} \
 		CSC_OPTIONS="${CSC_OPTIONS}" \
-		SNOW_PACKAGES="srfi.64 srfi.170 foreign.c retropikzel.system retropikzel.named-pipes ${PKG}" \
+		SNOW_PACKAGES="foreign.c srfi.64 srfi.170 retropikzel.system retropikzel.named-pipes ${PKG}" \
 		APT_PACKAGES="${APT_PACKAGES}" \
 		test-r7rs -o test-program test.${SFX}
 

retropikzel/named-pipes/VERSION

@@ -1 +1 @@
-1.0.3
+1.0.4

retropikzel/pstk.scm

@@ -1,15 +1,7 @@
 (define (temp-name)
-  (random-source-randomize! default-random-source)
-  (let ((file (string-append "/tmp/pstk-"
-                             (number->string (random-integer 1000))
-                             "-"
-                             (number->string (random-integer 1000))
-                             "-"
-                             (number->string (random-integer 1000)))))
-    (if (file-exists? file)
-      (temp-name)
-      file)))
-
+  (let ((filename (create-temp-file "pstk.")))
+    (delete-file filename)
+    filename))
 (define wish-display pipe-write-string)
 (define wish-read (lambda (pipe)
                     (let ((result (pipe-read pipe)))
@@ -41,17 +33,21 @@
 
 (define *use-keywords?*
   (cond-expand
+    (chicken #t)
+    (kawa #t)
     (stklos #t)
     (else #f)))
 
 (define (%keyword? x)
   (cond-expand
+    (chicken (keyword? x))
     (kawa (keyword? x))
     (srfi-88 (keyword? x))
     (else (error "Keywords not supported" x))))
 
 (define (%keyword->string x)
   (cond-expand
+    (chicken (keyword->string x))
     (kawa (keyword->string x))
     (stklos (keyword->string x))
     (else (error "Keywords not supported" x))))

retropikzel/pstk.sld

@@ -108,7 +108,11 @@
           (scheme process-context)
           (retropikzel named-pipes)
           (retropikzel system)
-          (srfi 27))
+          (srfi 170))
+          (cond-expand
+            ;; Temporary workaround because of https://github.com/egallesio/STklos/issues/888
+            (stklos (import (only (stklos) create-temp-file)))
+            (else))
   (export tk-eval
           tk-id->widget
           tk-var