From 1e247ff5e357786489184cae1fbdb335983171a6 Mon Sep 17 00:00:00 2001
From: Peter Bex <address@hidden>
Date: Sat, 29 Sep 2018 15:18:41 +0200
Subject: [PATCH] chicken-install: Allow any type of value as argument

Reported by Joerg Wittenberger: we accidentally dropped the
functionality introduced by 0ae333805f8fc782d4cdc36e1f3675028a26d9fa
in dc07113cf79a1930c6a109c738138dbea15afbc0.  This should fix that.
---
 egg-compile.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/egg-compile.scm b/egg-compile.scm
index e63caf93..9c1b9f82 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -921,7 +921,8 @@ EOF
 ;; backslashes on Windows, which is necessary in many cases when
 ;; running programs via "cmd".
 (define (qs* arg platform #!optional slashify?)
-  (let ((path (if slashify? (slashify arg platform) arg)))
+  (let* ((arg (->string arg))
+	 (path (if slashify? (slashify arg platform) arg)))
     (qs path (if (eq? platform 'windows) 'mingw32 platform))))
 
 (define (slashify str platform)
-- 
2.11.0