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

Merge pull request #848 from lockywolf/crutch-for-relative-install-lib-dir

Browse source 
Add a crutch to better detect snow binary extension dir.
This commit is contained in:
Alex Shinn 2022-08-03 22:42:40 +09:00 • committed by GitHub
commit 2f50a6cf74
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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)))