suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove dead code

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-04-30 16:21:18 -04:00
parent 96da427659
commit 113fa13171
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/drscheme/private/insert-large-letters.rkt
View File

@ -23,14 +23,6 @@
(not (equal? str ""))) (not (equal? str "")))
(render-large-letters comment-prefix comment-character (get-chosen-font) str edit) (render-large-letters comment-prefix comment-character (get-chosen-font) str edit)
(void)))) (void))))
#;
(preferences:set-default 'drracket:large-letters-font #f (λ: ([x : Any])
(or (and (pair? x)
(string? (car x))
(let ([i (cdr x)])
(and (integer? i)
(<= 1 i 255))))
(not x))))
(: get-default-font (-> (Instance Font%))) (: get-default-font (-> (Instance Font%)))
(define (get-default-font) (define (get-default-font)