Apply Gregory Cooper's changes

-remove the dead in-string procedure.
-cleanup empty lines.

https://github.com/plt/racket/pull/138/files#r1447006
This commit is contained in:
Patrick Mahoney 2012-08-23 13:36:04 -04:00 committed by Gregory Cooper
parent a95a90a9da
commit 65c54a9dd9

View File

@ -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)