blob: 3934d49fa314bef83dffb4af2af4d1e8fad39e19 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
This patch was submitted upstream:
https://github.com/scheme/scsh/pull/46
diff --git a/scheme/lib-dirs.scm b/scheme/lib-dirs.scm
index a1fc009..c630fb4 100644
--- a/scheme/lib-dirs.scm
+++ b/scheme/lib-dirs.scm
@@ -75,6 +75,7 @@
(let ((val (read)))
(cond ((eof-object? val) '())
((string? val) (cons val (recur)))
+ ((symbol? val) (cons (symbol->string val) (recur)))
((not val) (append default-lib-dirs (recur)))
(else
(error
|
