[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#18439: [PATCH] guile-readline: Use the current directory if HOME is
|
From: |
David Michael |
|
Subject: |
bug#18439: [PATCH] guile-readline: Use the current directory if HOME is unset |
|
Date: |
Sat, 20 Sep 2014 10:43:21 -0400 |
* guile-readline/ice-9/readline.scm (history-file): When the HOME
environment variable is unset, use the current directory instead.
---
guile-readline/ice-9/readline.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guile-readline/ice-9/readline.scm
b/guile-readline/ice-9/readline.scm
index 02e68af..df2edaf 100644
--- a/guile-readline/ice-9/readline.scm
+++ b/guile-readline/ice-9/readline.scm
@@ -119,7 +119,8 @@
(define-once the-readline-port #f)
(define-once history-variable "GUILE_HISTORY")
-(define-once history-file (string-append (getenv "HOME") "/.guile_history"))
+(define-once history-file
+ (string-append (or (getenv "HOME") ".") "/.guile_history"))
(define-public readline-port
(let ((do (lambda (r/w)
--
1.9.3