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:
parent
a95a90a9da
commit
65c54a9dd9
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user