From 6c0860b3cfda43f6a0a36a9e8431f8660339268b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Daniel=20Kochma=C5=84ski?= Date: Wed, 19 Aug 2015 10:09:17 +0200 Subject: [PATCH] pathname: fix logical translation wrt wildcards MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Fixes #103. Signed-off-by: Daniel Kochmański --- src/c/pathname.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/c/pathname.d b/src/c/pathname.d index 206b228..109f016 100644 --- a/src/c/pathname.d +++ b/src/c/pathname.d @@ -1737,7 +1737,7 @@ copy_list_wildcards(cl_object *wilds, cl_object to) if (wilds == @':error') goto error; if (Null(to->pathname.directory)) { /* Missing components are replaced */ - d = translate_list_case(from->pathname.directory, fromcase, tocase); + d = translate_list_case(source->pathname.directory, fromcase, tocase); } else { wilds = translate_list_case(wilds, fromcase, tocase); d = copy_list_wildcards(&wilds, to->pathname.directory); @@ -1750,7 +1750,7 @@ copy_list_wildcards(cl_object *wilds, cl_object to) wilds = find_wilds(ECL_NIL, source->pathname.name, from->pathname.name); if (wilds == @':error') goto error2; if (Null(to->pathname.name)) { - d = translate_component_case(from->pathname.name, fromcase, tocase); + d = translate_component_case(source->pathname.name, fromcase, tocase); } else { wilds = translate_list_case(wilds, fromcase, tocase); d = copy_wildcards(&wilds, to->pathname.name); @@ -1763,7 +1763,7 @@ copy_list_wildcards(cl_object *wilds, cl_object to) wilds = find_wilds(ECL_NIL, source->pathname.type, from->pathname.type); if (wilds == @':error') goto error2; if (Null(to->pathname.type)) { - d = translate_component_case(from->pathname.type, fromcase, tocase); + d = translate_component_case(source->pathname.type, fromcase, tocase); } else { wilds = translate_list_case(wilds, fromcase, tocase); d = copy_wildcards(&wilds, to->pathname.type); -- 2.9.0