0542d3ca70
also cleaned up a bunch of little things in the bug report implementation: - the abort had race conditions - formatted the collections a little bit better (hopefully) - broke the implementation up into multiple files - fixed broken interaction with drracket (the drracket frame mixin is now being used properly)
18 lines
442 B
Racket
18 lines
442 B
Racket
#lang racket/base
|
|
|
|
(provide set-bug-report-info!
|
|
get-bug-report-infos
|
|
bri-label
|
|
bri-value)
|
|
|
|
(struct bri (label get-value) #:transparent)
|
|
(define (bri-value bri) ((bri-get-value bri)))
|
|
|
|
;; update with symbol/string assoc list
|
|
(define bug-report-infos null)
|
|
|
|
(define (set-bug-report-info! str thunk)
|
|
(set! bug-report-infos (cons (bri str thunk) bug-report-infos)))
|
|
|
|
(define (get-bug-report-infos) bug-report-infos)
|