diff --git a/racket/collects/syntax/parse/private/runtime-report.rkt b/racket/collects/syntax/parse/private/runtime-report.rkt index e0d4db5a5e..f1c66106c1 100644 --- a/racket/collects/syntax/parse/private/runtime-report.rkt +++ b/racket/collects/syntax/parse/private/runtime-report.rkt @@ -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