diff --git a/collects/frtime/gui/fred.rkt b/collects/frtime/gui/fred.rkt index 0524de6694..ef86da1851 100644 --- a/collects/frtime/gui/fred.rkt +++ b/collects/frtime/gui/fred.rkt @@ -7,20 +7,10 @@ mred framework) - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Helpers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - (define (in-string itm) - (if (undefined? itm) - "" - (if (string? itm) - itm - (number->string itm)))) - - ;; adding assumed methods (define (add-void-set-value super-class) (class super-class @@ -40,8 +30,6 @@ (inherit show) (show shown-val))) - - ;; *-event-processor init-argument values (define event-is-val (lambda (es)