Add patch file for SCSH
This commit is contained in:
parent
679d9a127a
commit
0e20427296
1 changed files with 12 additions and 0 deletions
12
scsh-nonstring-search-path.patch
Normal file
12
scsh-nonstring-search-path.patch
Normal file
|
@ -0,0 +1,12 @@
|
|||
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
|
Loading…
Reference in a new issue