Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add a crutch to better detect snow binary extension dir.

Browse source
This commit is contained in:
Lockywolf 2022-08-03 20:39:20 +08:00
parent dea22a424b
commit ac5c10c114
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1383,7 +1383,9 @@
(chibi (eval '(current-module-path) (environment '(chibi)))) (chibi (eval '(current-module-path) (environment '(chibi))))
(else (process->sexp (else (process->sexp
'(chibi-scheme -q -p "(current-module-path)")))))) '(chibi-scheme -q -p "(current-module-path)"))))))
(lib-dir (find (lambda (d) (string-contains d "/lib")) dirs))) (lib-dir (find (lambda (d) (and (equal? (string-ref d 0) #\/)
(string-contains d "/lib")))
dirs)))
(if lib-dir (if lib-dir
(cons lib-dir (delete lib-dir dirs)) (cons lib-dir (delete lib-dir dirs))
dirs))) dirs)))