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.

1 files changed, 1 insertions, 3 deletions

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;