Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-05 12:16:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Switch some string-appends to make-paths

Browse source
This commit is contained in:
retropikzel 2025-06-28 07:14:59 +03:00
parent af5dd96347
commit ca35369186
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/snow/commands.scm
View file

@ -1400,15 +1400,14 @@
"/usr/local/share/guile/")))) "/usr/local/share/guile/"))))
((mosh) ((mosh)
(with-output-to-file (with-output-to-file
(string-append (cond-expand (windows (get-environment-variable "TMP")) (make-path (cond-expand (windows (get-environment-variable "TMP"))
(else "/tmp")) (else "/tmp"))
"/snowmosh") "snowmosh")
(lambda () (lambda ()
(display "(import (scheme base) (scheme write) (mosh config))") (display "(import (scheme base) (scheme write) (mosh config))")
(newline) (newline)
(display "(display (get-config \"library-path\"))"))) (display "(display (get-config \"library-path\"))")))
(list (string-append (symbol->string (process->sexp '(mosh /tmp/snowmosh))) (list (make-path (process->sexp '(mosh /tmp/snowmosh)) "lib")))
"/lib")))
((larceny) ((larceny)
(list (list
(make-path (make-path