From ac5c10c1149e3b9d707c14f40ed6dfddb0540332 Mon Sep 17 00:00:00 2001 From: Lockywolf Date: Wed, 3 Aug 2022 20:39:20 +0800 Subject: [PATCH] Add a crutch to better detect snow binary extension dir. --- lib/chibi/snow/commands.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 28877ea8..9e1a5a2d 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1383,7 +1383,9 @@ (chibi (eval '(current-module-path) (environment '(chibi)))) (else (process->sexp '(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 (cons lib-dir (delete lib-dir dirs)) dirs)))