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

add the roots to the links info line in the bug report form

Browse Source
This commit is contained in:
Robby Findler 2011-08-25 12:33:03 -05:00
parent 701ea003e7
commit eb56a39a50
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/help/private/bug-report-controls.rkt
View File

@ -7,6 +7,8 @@
setup/dirs setup/dirs
setup/link setup/link
framework framework
(for-syntax racket/base
racket/list)
"buginfo.rkt" "buginfo.rkt"
"save-bug-report.rkt") "save-bug-report.rkt")
@ -412,11 +414,23 @@
(map path->string (directory-list d)) (map path->string (directory-list d))
'(non-existent-path)))))) '(non-existent-path))))))
(define-syntax (links-calls stx)
(syntax-case stx ()
[(_ calls ...)
(let ([str
(apply
string-append
(add-between (map (λ (x) "~s = ~s")
(syntax->list #'(calls ...)))
"; "))])
#`(format #,str #,@(apply append (map (λ (x) (list #`'#,x x))
(syntax->list #'(calls ...))))))]))
(send (send links-ctrl get-editor) (send (send links-ctrl get-editor)
insert insert
(format "~s = ~s; ~s = ~s" (links-calls (links)
'(links) (links) (links #:user? #f)
'(links #:user? #f) (links #:user? #f))) (links #:root? #t)
(links #:user? #f #:root? #t)))
(send human-language set-value (format "~a" (this-language))) (send human-language set-value (format "~a" (this-language)))
(send memory-use set-value (format "~a" (current-memory-use))) (send memory-use set-value (format "~a" (current-memory-use)))