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

fix planet path checking (PR 9249)

Browse Source 
svn: r8970
This commit is contained in:
Matthew Flatt 2008-03-14 11:44:36 +00:00
parent a8ae46ba34
commit b1009e7e5a
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/module.c
View File

@ -1856,6 +1856,8 @@ int scheme_is_module_path(Scheme_Object *obj)
for (; !SCHEME_NULLP(subs); subs = SCHEME_CDR(subs)) {
a = SCHEME_CAR(subs);
if (!SCHEME_CHAR_STRINGP(a))
return 0;
if (!ok_path_string(a, 0, 0, 0))
return 0;
}