fix zo-parse of rename tables

2011-07-12 16:16:04 -06:00 · 2011-07-12 16:16:04 -06:00 · 07a9cdd2a8
commit 07a9cdd2a8
parent e5314f945e
1 changed files with 2 additions and 2 deletions
--- 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)