From c65758639bae55286f65d2cc80d2330d5e806315 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 6 Mar 2009 19:59:13 +0000
Subject: [PATCH] add missing check in bytecode unmarshaling

svn: r13991
---
 src/mzscheme/src/env.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/mzscheme/src/env.c b/src/mzscheme/src/env.c
index 9d005b0475..66c1f595df 100644
--- a/src/mzscheme/src/env.c
+++ b/src/mzscheme/src/env.c
@@ -5230,6 +5230,9 @@ static Scheme_Object *read_resolve_prefix(Scheme_Object *obj)
   tv = SCHEME_CAR(obj);
   sv = SCHEME_CDR(obj);
 
+  if (!SCHEME_VECTORP(tv)) return NULL;
+  if (!SCHEME_VECTORP(sv)) return NULL;
+
   rp = MALLOC_ONE_TAGGED(Resolve_Prefix);
   rp->so.type = scheme_resolve_prefix_type;
   rp->num_toplevels = SCHEME_VEC_SIZE(tv);