From ba975f0ed204d98380f2ee19e404680a8d46fc39 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 22 Sep 2008 19:58:20 +0000 Subject: [PATCH] added plt version to bug report submission svn: r11839 --- collects/drscheme/private/debug.ss | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss index de9ca92344..d92d064c13 100644 --- a/collects/drscheme/private/debug.ss +++ b/collects/drscheme/private/debug.ss @@ -338,16 +338,17 @@ profile todo: ;; =User= (define (parse-gp exn gp) (match gp - [`(planet ,fn (,user ,package ,version ...)) + [`(planet ,fn (,user ,package ,planet-version ...)) (list (cons 'component (format "~a/~a" user package)) (cons 'keywords "contract violation") + (cons 'pltversion (version)) (cons 'planetversion (cond - [(null? version) ""] - [(null? (cdr version)) - (format "~s" `(,(car version) ?))] + [(null? planet-version) ""] + [(null? (cdr planet-version)) + (format "~s" `(,(car planet-version) ?))] [else - (format "~s" `(,(car version) ,(cadr version)))])) + (format "~s" `(,(car planet-version) ,(cadr planet-version)))])) (cons 'description (exn->trace exn)))] [else #f]))