Add pair check in unmarshalling.

Closes #1070.
2015-09-21 10:35:43 -04:00 · 2015-09-21 10:35:43 -04:00 · 083029fa6f
commit 083029fa6f
parent aaf098f203
1 changed files with 1 additions and 0 deletions
--- a/racket/src/racket/src/syntax.c
+++ b/racket/src/racket/src/syntax.c
@ -6805,6 +6805,7 @@ static Scheme_Object *unmarshal_free_id_info(Scheme_Object *p, Scheme_Unmarshal_

  phase = SCHEME_CDR(p);
  p = SCHEME_CAR(p);
+  if (!SCHEME_PAIRP(p)) return_NULL;
  o = scheme_make_stx(SCHEME_CAR(p), NULL, NULL);
  p = datum_to_wraps(SCHEME_CDR(p), ut);
  if (!p) return_NULL;