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

reverting changes to read.c

Browse Source
This commit is contained in:
Blake Johnson 2010-08-24 14:45:51 -06:00 committed by Jay McCarthy
parent 54f2d34a2e
commit 1f084da620
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/racket/src/read.c
View File

@ -5435,10 +5435,9 @@ static Scheme_Object *read_compiled(Scheme_Object *port,
delay_info->ut->rp = NULL; /* clean up */ delay_info->ut->rp = NULL; /* clean up */
if (*local_ht) { if (*local_ht) {
result = resolve_references(result, rp->orig_port, NULL, scheme_read_err(port, NULL, -1, -1, -1, -1, 0, NULL,
scheme_make_hash_table(SCHEME_hash_ptr), "read (compiled): ill-formed code (unexpected graph structure)");
scheme_make_hash_table(SCHEME_hash_ptr), return NULL;
0, 0);
} }
if (SAME_TYPE(SCHEME_TYPE(result), scheme_compilation_top_type)) { if (SAME_TYPE(SCHEME_TYPE(result), scheme_compilation_top_type)) {