mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-29 19:30:36 +02:00
Code Activity

guile-readline: Use the current directory if HOME is unset.

Browse source 
* guile-readline/ice-9/readline.scm (history-file): When the HOME
  environment variable is unset, use the current directory instead.
This commit is contained in:
David Michael 2014-09-21 23:21:25 -04:00 • committed by Mark H Weaver
parent 76a8db27c6
commit 3a3316e200
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
guile-readline/ice-9/readline.scm
View file

@ -118,7 +118,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)