suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

typo: make-file-or-directory-link error message

Browse Source 
Change error message to blame the symlink, not its destination
This commit is contained in:
Ben Greenman 2018-05-26 17:28:20 -04:00
parent ec2387fa16
commit 10c05aa3a1
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
pkgs/racket-test-core/tests/racket/file.rktl
View File

@ -1966,6 +1966,7 @@
(unless (eq? 'windows (system-type)) (unless (eq? 'windows (system-type))
(delete-file tf) (delete-file tf)
(make-file-or-directory-link "other.txt" 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)) (test (string->path "other.txt") resolve-path tf))
(delete-file tf) (delete-file tf)
(case (system-path-convention-type) (case (system-path-convention-type)

2
racket/src/racket/src/file.c
View File

@ -4666,7 +4666,7 @@ static Scheme_Object *make_link(int argc, Scheme_Object *argv[])
"make-file-or-directory-link: cannot make link;\n" "make-file-or-directory-link: cannot make link;\n"
" the path already exists\n" " the path already exists\n"
" path: %q", " path: %q",
filename_for_error(argv[0])); filename_for_error(argv[1]));
} else { } else {
scheme_raise_exn(MZEXN_FAIL_FILESYSTEM, scheme_raise_exn(MZEXN_FAIL_FILESYSTEM,
"make-file-or-directory-link: cannot make link\n" "make-file-or-directory-link: cannot make link\n"