From 1f084da620f58e7da9a1255c531933f9a7837169 Mon Sep 17 00:00:00 2001 From: Blake Johnson Date: Tue, 24 Aug 2010 14:45:51 -0600 Subject: [PATCH] reverting changes to read.c --- src/racket/src/read.c | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/racket/src/read.c b/src/racket/src/read.c index 281448da26..c0d831bc2c 100644 --- a/src/racket/src/read.c +++ b/src/racket/src/read.c @@ -5435,10 +5435,9 @@ static Scheme_Object *read_compiled(Scheme_Object *port, delay_info->ut->rp = NULL; /* clean up */ if (*local_ht) { - result = resolve_references(result, rp->orig_port, NULL, - scheme_make_hash_table(SCHEME_hash_ptr), - scheme_make_hash_table(SCHEME_hash_ptr), - 0, 0); + scheme_read_err(port, NULL, -1, -1, -1, -1, 0, NULL, + "read (compiled): ill-formed code (unexpected graph structure)"); + return NULL; } if (SAME_TYPE(SCHEME_TYPE(result), scheme_compilation_top_type)) {