From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Mark H Weaver Newsgroups: gmane.lisp.guile.bugs Subject: bug#18439: [PATCH] guile-readline: Use the current directory if HOME is unset Date: Sun, 21 Sep 2014 23:26:38 -0400 Message-ID: <87bnq8l4i9.fsf@yeeloong.lan> References: <87lhpsbadu.fsf@gmail.com> <87r3z6qrna.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1411356572 26128 80.91.229.3 (22 Sep 2014 03:29:32 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 22 Sep 2014 03:29:32 +0000 (UTC) Cc: 18439-done@debbugs.gnu.org To: David Michael Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Sep 22 05:29:25 2014 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1XVuJZ-0003Iy-BO for guile-bugs@m.gmane.org; Mon, 22 Sep 2014 05:29:25 +0200 Original-Received: from localhost ([::1]:42055 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVuJY-0000bx-Gt for guile-bugs@m.gmane.org; Sun, 21 Sep 2014 23:29:24 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48730) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVuJP-0000bS-BM for bug-guile@gnu.org; Sun, 21 Sep 2014 23:29:22 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XVuJH-0005VI-Rk for bug-guile@gnu.org; Sun, 21 Sep 2014 23:29:15 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:56278) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVuJH-0005Uw-Oy for bug-guile@gnu.org; Sun, 21 Sep 2014 23:29:07 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XVuJC-00048A-Ca for bug-guile@gnu.org; Sun, 21 Sep 2014 23:29:02 -0400 Resent-From: Mark H Weaver Original-Sender: "Debbugs-submit" Resent-To: bug-guile@gnu.org Resent-Date: Mon, 22 Sep 2014 03:29:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 18439 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch Mail-Followup-To: 18439@debbugs.gnu.org, mhw@netris.org, fedora.dm0@gmail.com Original-Received: via spool by 18439-done@debbugs.gnu.org id=D18439.141135651815832 (code D ref 18439); Mon, 22 Sep 2014 03:29:01 +0000 Original-Received: (at 18439-done) by debbugs.gnu.org; 22 Sep 2014 03:28:38 +0000 Original-Received: from localhost ([127.0.0.1]:47840 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XVuIn-00047D-VR for submit@debbugs.gnu.org; Sun, 21 Sep 2014 23:28:38 -0400 Original-Received: from world.peace.net ([96.39.62.75]:50478) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XVuIk-00046y-Jc; Sun, 21 Sep 2014 23:28:35 -0400 Original-Received: from c-24-62-95-23.hsd1.ma.comcast.net ([24.62.95.23] helo=yeeloong.lan) by world.peace.net with esmtpsa (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.72) (envelope-from ) id 1XVuIe-0005T0-9U; Sun, 21 Sep 2014 23:28:28 -0400 In-Reply-To: <87r3z6qrna.fsf@gmail.com> (David Michael's message of "Sat, 20 Sep 2014 10:43:21 -0400") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.bugs:7562 Archived-At: severity 18439 wishlist tags 18439 notabug thanks David Michael writes: > * 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) Pushed to the stable-2.0 branch, commit 3a3316e200ac49f0e8e9004c233747efd9f54a04. I'm closing this ticket now. Thanks! Mark