From 481f10a62263e653fed3729b07fea8c333b2e539 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 12 Jul 2011 16:16:04 -0600
Subject: [PATCH] fix zo-parse of rename tables

original commit: 07a9cdd2a8bbd2f9f9bce791e2329a453d349c77
---
 collects/compiler/zo-parse.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt
index 287498ba73..ad5b848872 100644
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@@ -595,8 +595,8 @@
       ; A reference 
       [(integer? a) 
        (unmarshal-stx-get/decode cp a (lambda (cp v) (aloop v)))]
-      ; A mark (not actually a number as the C says, but a (list <num>)
-      [(and (pair? a) (number? (car a)))
+      ; A mark wraped in a list
+      [(and (pair? a) (number? (car a)) (null? (cdr a)))
        (make-wrap-mark (car a))]
       
       [(vector? a)