remove security-guard check from cleanse-path, because it does not consult the filesystem

svn: r16121
This commit is contained in:
Matthew Flatt 2009-09-24 14:49:59 +00:00
parent a8f50e76a7
commit 26f99d3fa4

View File

@ -4628,7 +4628,7 @@ static Scheme_Object *cleanse_path(int argc, Scheme_Object *argv[])
"cleanse-path",
&expanded,
1, 0,
SCHEME_GUARD_FILE_EXISTS,
0, /* no security check, since the filesystem is not used */
SCHEME_PLATFORM_PATH_KIND,
0);