From 24cb6fa0cda0ebf91836adc1a8f2d83196369fc8 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Tue, 11 Oct 2011 15:00:51 -0400 Subject: [PATCH] Handle cases where the inliner gives us the name, but nothing else. There's not much we can do with these, but at least we don't error. --- collects/typed-racket/optimizer/tool/mzc.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/typed-racket/optimizer/tool/mzc.rkt b/collects/typed-racket/optimizer/tool/mzc.rkt index 3568a3c8f1..2504261f98 100644 --- a/collects/typed-racket/optimizer/tool/mzc.rkt +++ b/collects/typed-racket/optimizer/tool/mzc.rkt @@ -37,17 +37,20 @@ (define inlining-event-regexp ;; Last bit is `generated?'. We don't care about that. ;; The middle elements of the vector are numbers of #f. - "involving: #\\(([^ ]+) # ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)") + #rx"involving: (#\\(([^ ]+) # ([^ ]+) ([^ ]+) ([^ ]+) ([^ ]+) [^ ]+\\)|([^ ]+))") (define (inlining-event->forged-stx l) (match (regexp-match inlining-event-regexp l) - [`(,all ,name ,path ,line ,col ,pos ,span) + [`(,all ,vec ,name ,path ,line ,col ,pos ,span #f) (datum->syntax #'here (string->symbol name) (list path (string->number line) (string->number col) (string->number pos) (string->number span)))] + [`(,all ,name #f #f #f #f #f #f,name) + ;; We only know the name. there's not much we can do with that. + (datum->syntax #'here (string->symbol name) #f)] [_ (error "ill-formed inlining log entry" l)])) (define success-kind "Inlining")