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

fix new xform macro handling

Browse Source 
svn: r5904
This commit is contained in:
Matthew Flatt 2007-04-09 09:59:56 +00:00
parent c6f377aca8
commit 29348092ab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/compiler/private/xform.ss
View File

@ -1470,7 +1470,8 @@
(define (start-skip? e) (define (start-skip? e)
(and (pair? e) (and (pair? e)
(eq? START_XFORM_SKIP (tok-n (car e))))) (or (eq? START_XFORM_SKIP (tok-n (car e)))
(eq? 'XFORM_START_SKIP (tok-n (car e))))))
(define (end-skip? e) (define (end-skip? e)
(and (pair? e) (and (pair? e)
@ -2649,9 +2650,9 @@
(live-var-info-num-noreturn-calls live-vars) (live-var-info-num-noreturn-calls live-vars)
(live-var-info-num-empty-calls live-vars) (live-var-info-num-empty-calls live-vars)
(live-var-info-nonempty-calls? live-vars)))] (live-var-info-nonempty-calls? live-vars)))]
[(eq? (tok-n (caar body)) START_XFORM_SKIP) [(memq (tok-n (caar body)) '(START_XFORM_SKIP XFORM_START_SKIP))
(let skip-loop ([body (cdr body)]) (let skip-loop ([body (cdr body)])
(let*-values ([(end?) (eq? (tok-n (caar body)) END_XFORM_SKIP)] (let*-values ([(end?) (memq (tok-n (caar body)) '(END_XFORM_SKIP XFORM_START_SKIP))]
[(rest live-vars) ((if end? [(rest live-vars) ((if end?
loop loop
skip-loop) skip-loop)