~ chicken-core (chicken-5) 8eec987b4471cff200763168222e875d56c349ea

commit 8eec987b4471cff200763168222e875d56c349ea
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Sep 29 15:18:41 2018 +0200
Commit:     Mario Domenech Goulart <mario@parenteses.org>
CommitDate: Sat Sep 29 16:07:27 2018 +0200

    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.
    
    Signed-off-by: Mario Domenech Goulart <mario@parenteses.org>

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)