From 65c54a9dd9221893a24246e21419e6c0d2aaab23 Mon Sep 17 00:00:00 2001 From: Patrick Mahoney Date: Thu, 23 Aug 2012 13:36:04 -0400 Subject: [PATCH] Apply Gregory Cooper's changes -remove the dead in-string procedure. -cleanup empty lines. https://github.com/plt/racket/pull/138/files#r1447006 --- collects/frtime/gui/fred.rkt | 12 ------------ 1 file changed, 12 deletions(-) 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)