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

syntax/parse: fix progress ordering

Browse Source
This commit is contained in:
Ryan Culpepper 2016-06-15 18:01:30 -04:00
parent 51bd8f3de5
commit 2eb806d20c
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
racket/collects/syntax/parse/private/runtime-report.rkt
View File

@ -161,16 +161,20 @@ ie (ps->stx+index ps1) = (ps->stx+index ps2).
(partition (lambda (item) (eq? '#f (item-first-prf item))) rest4))
(unless (null? rest5)
(error 'syntax-parse "INTERNAL ERROR: bad progress: ~e\n" rest5))
(append
(maximal/stx STX)
(cond [(pair? CDR)
(define leastCDR (apply min (map item-first-prf CDR)))
(maximal/progress (map (lambda (item) (item-pop-prf-ncdrs item leastCDR)) CDR))]
[(pair? CAR)
(maximal/progress (map item-pop-prf CAR))]
[(pair? NULL)
(list (map cdr NULL))]
[else null]))]))
(cond [(pair? CDR)
(define leastCDR (apply min (map item-first-prf CDR)))
(append
(maximal/stx STX)
(maximal/progress (map (lambda (item) (item-pop-prf-ncdrs item leastCDR)) CDR)))]
[(pair? CAR)
(append
(maximal/stx STX)
(maximal/progress (map item-pop-prf CAR)))]
[(pair? STX)
(maximal/stx STX)]
[(pair? NULL)
(list (map cdr NULL))]
[else null])]))
;; maximal-prf1/ord : (NEListof (Cons IPS A)) -> (NEListof (Cons IPS A))
;; PRE: each item has ORD first frame