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

added the computer language info back in

Browse Source 
svn: r15678
This commit is contained in:
Robby Findler 2009-08-05 23:58:05 +00:00
parent 7c62f8caa0
commit 46f5ef44bd
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/help/bug-report.ss
View File

@ -332,7 +332,7 @@
(new grow-box-spacer-pane% [parent button-panel])) (new grow-box-spacer-pane% [parent button-panel]))
(define (get-query) (define (get-query)
(list (cons 'help-desk "true") (append (list (cons 'help-desk "true")
(cons 'replyto (preferences:get 'drscheme:email)) (cons 'replyto (preferences:get 'drscheme:email))
(cons 'originator (preferences:get 'drscheme:full-name)) (cons 'originator (preferences:get 'drscheme:full-name))
(cons 'subject (send summary get-value)) (cons 'subject (send summary get-value))
@ -344,7 +344,10 @@
(cons 'how-to-repeat (apply string-append (cons 'how-to-repeat (apply string-append
(map (lambda (x) (string-append x "\n")) (map (lambda (x) (string-append x "\n"))
(get-strings reproduce)))) (get-strings reproduce))))
(cons 'platform (get-environment)))) (cons 'platform (get-environment)))
(map (λ (bri) (cons (string->symbol (format "~a" (bri-label bri)))
(bri-value bri)))
(get-bug-report-infos))))
(define (get-environment) (define (get-environment)
(string-append (send environment get-value) (string-append (send environment get-value)