From 10c05aa3a1dd8113831ac231a31809ceebcaefe8 Mon Sep 17 00:00:00 2001 From: Ben Greenman Date: Sat, 26 May 2018 17:28:20 -0400 Subject: [PATCH] typo: make-file-or-directory-link error message Change error message to blame the symlink, not its destination --- pkgs/racket-test-core/tests/racket/file.rktl | 1 + racket/src/racket/src/file.c | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/file.rktl b/pkgs/racket-test-core/tests/racket/file.rktl index bf57219d63..002b338fb4 100644 --- a/pkgs/racket-test-core/tests/racket/file.rktl +++ b/pkgs/racket-test-core/tests/racket/file.rktl @@ -1966,6 +1966,7 @@ (unless (eq? 'windows (system-type)) (delete-file tf) (make-file-or-directory-link "other.txt" tf) + (err/rt-test (make-file-or-directory-link "other.txt" tf) exn:fail:filesystem? (regexp-quote tf)) (test (string->path "other.txt") resolve-path tf)) (delete-file tf) (case (system-path-convention-type) diff --git a/racket/src/racket/src/file.c b/racket/src/racket/src/file.c index 2eb74116f9..ba322d3310 100644 --- a/racket/src/racket/src/file.c +++ b/racket/src/racket/src/file.c @@ -4666,7 +4666,7 @@ static Scheme_Object *make_link(int argc, Scheme_Object *argv[]) "make-file-or-directory-link: cannot make link;\n" " the path already exists\n" " path: %q", - filename_for_error(argv[0])); + filename_for_error(argv[1])); } else { scheme_raise_exn(MZEXN_FAIL_FILESYSTEM, "make-file-or-directory-link: cannot make link\n"