From a21214a5589f270d30e19e957dddee4ad53f09c8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 23 Nov 2006 01:48:33 +0000 Subject: [PATCH] find one procedure name for v360.2 svn: r4923 --- src/mzscheme/src/file.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c index 5c33801d2b..88db827ab5 100644 --- a/src/mzscheme/src/file.c +++ b/src/mzscheme/src/file.c @@ -364,9 +364,9 @@ void scheme_init_file(Scheme_Env *env) "build-path", 1, -1), env); - scheme_add_global_constant("build-path/kind", + scheme_add_global_constant("build-path/convention-type", scheme_make_prim_w_arity(build_path_kind, - "build-path/kind", + "build-path/convention-type", 2, -1), env); scheme_add_global_constant("path->directory-path", @@ -2453,7 +2453,7 @@ static Scheme_Object *do_build_path(int argc, Scheme_Object **argv, int idelta, int first_len = 0; int needs_extra_slash = 0; int pre_unc = 0; - const char *who = (idelta ? "build-path/kind" : "build-path"); + const char *who = (idelta ? "build-path/convention-type" : "build-path"); str = buffer; pos = 0; @@ -2921,7 +2921,7 @@ static Scheme_Object *build_path_kind(int argc, Scheme_Object **argv) { int kind; - kind = extract_path_kind("build-path/kind", 0, argc, argv); + kind = extract_path_kind("build-path/convention-type", 0, argc, argv); return do_build_path(argc - 1, argv, 1, 0, kind); }