From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: David Michael Newsgroups: gmane.lisp.guile.bugs Subject: bug#18439: [PATCH] guile-readline: Use the current directory if HOME is unset Date: Sat, 20 Sep 2014 10:43:21 -0400 Message-ID: <87r3z6qrna.fsf@gmail.com> References: <87lhpsbadu.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1411224277 14413 80.91.229.3 (20 Sep 2014 14:44:37 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 20 Sep 2014 14:44:37 +0000 (UTC) To: 18439@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sat Sep 20 16:44:29 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 1XVLtk-0006Ga-7z for guile-bugs@m.gmane.org; Sat, 20 Sep 2014 16:44:28 +0200 Original-Received: from localhost ([::1]:34873 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVLtj-0003EP-DP for guile-bugs@m.gmane.org; Sat, 20 Sep 2014 10:44:27 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:53791) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVLtY-0003Cz-GF for bug-guile@gnu.org; Sat, 20 Sep 2014 10:44:23 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XVLtQ-0004wk-Tr for bug-guile@gnu.org; Sat, 20 Sep 2014 10:44:16 -0400 Original-Received: from debbugs.gnu.org ([140.186.70.43]:55233) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XVLtQ-0004wW-QC for bug-guile@gnu.org; Sat, 20 Sep 2014 10:44:08 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1XVLtK-0005uj-PG for bug-guile@gnu.org; Sat, 20 Sep 2014 10:44:03 -0400 X-Loop: help-debbugs@gnu.org In-Reply-To: <87lhpsbadu.fsf@gmail.com> Resent-From: David Michael Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sat, 20 Sep 2014 14:44:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 18439 X-GNU-PR-Package: guile X-GNU-PR-Keywords: patch Original-Received: via spool by 18439-submit@debbugs.gnu.org id=B18439.141122421122679 (code B ref 18439); Sat, 20 Sep 2014 14:44:02 +0000 Original-Received: (at 18439) by debbugs.gnu.org; 20 Sep 2014 14:43:31 +0000 Original-Received: from localhost ([127.0.0.1]:46797 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XVLsp-0005ti-9x for submit@debbugs.gnu.org; Sat, 20 Sep 2014 10:43:31 -0400 Original-Received: from mail-qa0-f46.google.com ([209.85.216.46]:43409) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1XVLsl-0005tY-Mt for 18439@debbugs.gnu.org; Sat, 20 Sep 2014 10:43:28 -0400 Original-Received: by mail-qa0-f46.google.com with SMTP id f12so3775155qad.5 for <18439@debbugs.gnu.org>; Sat, 20 Sep 2014 07:43:26 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=from:to:subject:date:message-id:mime-version:content-type; bh=pgd+zo8ilZPNgz39f1yKPYx499NGYlfFtDxQrANESX8=; b=Yb8inv5Kv5WB+ydeshEzOZB4Khd2PODejmtu4jOIfjMxZXkgxMaLYcFXmvSB99pB5A Ca0lxWDRUVfQ+EZVnTSFx3KKeaqD9kn27nMJyWrChvxvl4zvX2+NEvV7Di2gU7xsw/dI j2gZyUlgX5phvug7Z2ndVc1Ynm+Ji3BNgie8DmY5V2vGLJirp8klUc2gpzAKuYmtDZrw ajExKN9QDsqaBNXsKsPm3vItStYjodmkTNu3M0g0nSBLGos02XOt4giwXwe8uuC/UZ42 va7z/NAf3fqwK2J6RKgCNiGbwByxw+wBUIGP4M9Ie+3OC+eqI3GOGnmC1ZFfkB7CpzJd gfzQ== X-Received: by 10.140.81.42 with SMTP id e39mr4577050qgd.60.1411224206778; Sat, 20 Sep 2014 07:43:26 -0700 (PDT) Original-Received: from callisto (c-68-81-204-146.hsd1.pa.comcast.net. [68.81.204.146]) by mx.google.com with ESMTPSA id 96sm3743017qgf.20.2014.09.20.07.43.25 for <18439@debbugs.gnu.org> (version=TLSv1.2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sat, 20 Sep 2014 07:43:26 -0700 (PDT) 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:7558 Archived-At: * 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