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

added plt version to bug report submission

Browse Source 
svn: r11839
This commit is contained in:
Robby Findler 2008-09-22 19:58:20 +00:00
parent 091089f27d
commit ba975f0ed2
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drscheme/private/debug.ss
View File

@ -338,16 +338,17 @@ profile todo:
;; =User= ;; =User=
(define (parse-gp exn gp) (define (parse-gp exn gp)
(match gp (match gp
[`(planet ,fn (,user ,package ,version ...)) [`(planet ,fn (,user ,package ,planet-version ...))
(list (cons 'component (format "~a/~a" user package)) (list (cons 'component (format "~a/~a" user package))
(cons 'keywords "contract violation") (cons 'keywords "contract violation")
(cons 'pltversion (version))
(cons 'planetversion (cons 'planetversion
(cond (cond
[(null? version) ""] [(null? planet-version) ""]
[(null? (cdr version)) [(null? (cdr planet-version))
(format "~s" `(,(car version) ?))] (format "~s" `(,(car planet-version) ?))]
[else [else
(format "~s" `(,(car version) ,(cadr version)))])) (format "~s" `(,(car planet-version) ,(cadr planet-version)))]))
(cons 'description (exn->trace exn)))] (cons 'description (exn->trace exn)))]
[else #f])) [else #f]))