From ca35369186ecb7d78aa712c9733845ca77dc7a2a Mon Sep 17 00:00:00 2001 From: retropikzel Date: Sat, 28 Jun 2025 07:14:59 +0300 Subject: [PATCH] Switch some string-appends to make-paths --- lib/chibi/snow/commands.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 8189cfd6..a18d91b1 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1400,15 +1400,14 @@ "/usr/local/share/guile/")))) ((mosh) (with-output-to-file - (string-append (cond-expand (windows (get-environment-variable "TMP")) + (make-path (cond-expand (windows (get-environment-variable "TMP")) (else "/tmp")) - "/snowmosh") + "snowmosh") (lambda () (display "(import (scheme base) (scheme write) (mosh config))") (newline) (display "(display (get-config \"library-path\"))"))) - (list (string-append (symbol->string (process->sexp '(mosh /tmp/snowmosh))) - "/lib"))) + (list (make-path (process->sexp '(mosh /tmp/snowmosh)) "lib"))) ((larceny) (list (make-path