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