suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix zo-parse of rename tables

Browse Source 
original commit: 07a9cdd2a8
This commit is contained in:
Matthew Flatt 2011-07-12 16:16:04 -06:00
parent 32d8828ab5
commit 481f10a622
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/compiler/zo-parse.rkt
View File

@ -595,8 +595,8 @@
; A reference ; A reference
[(integer? a) [(integer? a)
(unmarshal-stx-get/decode cp a (lambda (cp v) (aloop v)))] (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>) ; A mark wraped in a list
[(and (pair? a) (number? (car a))) [(and (pair? a) (number? (car a)) (null? (cdr a)))
(make-wrap-mark (car a))] (make-wrap-mark (car a))]
[(vector? a) [(vector? a)