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

Merging and fixing

Browse source
This commit is contained in:
retropikzel 2025-06-27 07:52:47 +03:00
commit af5dd96347
2 changed files with 21 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1400,15 +1400,15 @@
"/usr/local/share/guile/"))))
((mosh)
(with-output-to-file
"/tmp/mosh-helper"
(string-append (cond-expand (windows (get-environment-variable "TMP"))
(else "/tmp"))
"/snowmosh")
(lambda ()
(display "(import (scheme base) (scheme write) (mosh config)) (display (get-config \"library-path\")) (newline)")
(newline)))
(list
(string-append
(string-trim (process->string '(mosh "/tmp/mosh-helper"))
char-whitespace?)
"/lib")))
(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")))
((larceny)
(list
(make-path
@ -1505,10 +1505,10 @@
--r7rs --script ,file)
`(kawa ,(string-append "-Dkawa.import.path=" install-dir)
--r7rs --script ,file))))
((mosh)
((mosh)
(if lib-path
`(mosh --loadpath= ,install-dir --loadpath= ,lib-path ,file)
`(guile --loadpath= ,install-dir ,file)))
`(mosh --loadpath= ,install-dir ,file)))
((larceny)
(if lib-path
`(larceny -r7rs -path ,(string-append install-dir ":" lib-path)

13
lib/chibi/snow/utils.scm
View file

@ -39,8 +39,17 @@
,(delay
(process->sexp
'(kawa -e "(write (features))"))))
(mosh "mosh" #f #f
,(delay (write-string "mosh\n")))
(mosh "mosh" (mosh -v) #f
,(delay
(let ((tmpfile (string-append (cond-expand (windows (get-environment-variable "TMP"))
(else "/tmp"))
"/snowmosh")))
(with-output-to-file
tmpfile
(lambda ()
(display "(import (scheme base) (scheme write) (mosh config)) (display (features))")))
(process->sexp
`(mosh ,tmpfile)))))
(larceny "larceny" (larceny --version) "v0.98"
,(delay '()))
(sagittarius "sagittarius" #f #f