fix bug in id resolution
svn: r2557
This commit is contained in:
parent
8e376b31bd
commit
7115f63441
|
@ -2952,7 +2952,7 @@ static Scheme_Object *get_module_src_name(Scheme_Object *a, long phase)
|
||||||
if (mrn->needs_unmarshal) {
|
if (mrn->needs_unmarshal) {
|
||||||
/* Use resolve_env to trigger unmarshal, so that we
|
/* Use resolve_env to trigger unmarshal, so that we
|
||||||
don't have to implement top/from shifts here: */
|
don't have to implement top/from shifts here: */
|
||||||
resolve_env(a, orig_phase, 1, NULL, NULL);
|
resolve_env(a, orig_phase, 1, NULL, scheme_null);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (mrn->marked_names)
|
if (mrn->marked_names)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user