From 970fafa1b772042deb63358cc943a6579cf0debc Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 25 Apr 2022 07:31:38 -0700
Subject: load/@(load): use path_cat.

* eval.c (load): Use path_cat and dir_name instead of ad hoc
path munging.

* match.c (v_load): Likewise.
---
 match.c | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'match.c')

diff --git a/match.c b/match.c
index 9d5a0a6b..289214bb 100644
--- a/match.c
+++ b/match.c
@@ -4606,9 +4606,7 @@ static val v_load(match_files_ctx *c)
   {
     val path = if3(!pure_rel_path_p(target),
                    target,
-                   cat_str(nappend2(sub_list(split_str(parent, lit("/")),
-                                         zero, negone),
-                                    cons(target, nil)), lit("/")));
+                   path_cat(dir_name(parent), target));
     val stream, name = target;
     val txr_lisp_p = nil;
     val ret = nil;
-- 
cgit v1.2.3