From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Eli Zaretskii Newsgroups: gmane.lisp.guile.devel Subject: Don't return file names with backslashes from search-path Date: Thu, 14 Aug 2014 18:28:22 +0300 Message-ID: <831tsjhyzt.fsf@gnu.org> Reply-To: Eli Zaretskii NNTP-Posting-Host: plane.gmane.org X-Trace: ger.gmane.org 1408030128 13180 80.91.229.3 (14 Aug 2014 15:28:48 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Thu, 14 Aug 2014 15:28:48 +0000 (UTC) To: guile-devel@gnu.org Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Thu Aug 14 17:28:41 2014 Return-path: Envelope-to: guile-devel@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 1XHwxF-00054d-F6 for guile-devel@m.gmane.org; Thu, 14 Aug 2014 17:28:41 +0200 Original-Received: from localhost ([::1]:54531 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XHwxE-00009b-Ul for guile-devel@m.gmane.org; Thu, 14 Aug 2014 11:28:40 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48936) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XHwx5-00008a-Cn for guile-devel@gnu.org; Thu, 14 Aug 2014 11:28:38 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1XHwww-0005z6-Hc for guile-devel@gnu.org; Thu, 14 Aug 2014 11:28:31 -0400 Original-Received: from mtaout29.012.net.il ([80.179.55.185]:57636) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1XHwww-0005z0-7f for guile-devel@gnu.org; Thu, 14 Aug 2014 11:28:22 -0400 Original-Received: from conversion-daemon.mtaout29.012.net.il by mtaout29.012.net.il (HyperSendmail v2007.08) id <0NAA00A00YRHTV00@mtaout29.012.net.il> for guile-devel@gnu.org; Thu, 14 Aug 2014 18:28:19 +0300 (IDT) Original-Received: from HOME-C4E4A596F7 ([87.69.4.28]) by mtaout29.012.net.il (HyperSendmail v2007.08) with ESMTPA id <0NAA0097OYZ7MJ20@mtaout29.012.net.il> for guile-devel@gnu.org; Thu, 14 Aug 2014 18:28:19 +0300 (IDT) X-012-Sender: halo1@inter.net.il X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 80.179.55.185 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:17338 Archived-At: This small patch plugs yet another hole through which Guile on Windows could generate file names with backslashes. OK to commit? --- libguile/load.c~2 2014-07-03 09:58:29 +0300 +++ libguile/load.c 2014-08-14 17:28:26 +0300 @@ -657,7 +657,8 @@ search_path (SCM path, SCM filename, SCM if (stat (buf.buf, stat_buf) == 0 && ! (stat_buf->st_mode & S_IFDIR)) { - result = scm_from_locale_string (buf.buf); + result = + scm_from_locale_string (scm_i_mirror_backslashes (buf.buf)); goto end; } }