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

removed redundant 'string' calls

Browse Source 
svn: r1651
This commit is contained in:
Eli Barzilay 2005-12-19 19:48:30 +00:00
parent bbf31dfaa8
commit 5a3d70a58c
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/browser/private/html.ss
View File

@ -812,13 +812,11 @@
(not (= e #xFFFE))
(not (<= #xD800 e #xDFFF))
(send default-font screen-glyph-exists? (integer->char e)))
;; The call to `string' here should be removed. It
;; was here to avoid a v299.6 bug.
(insert (string (integer->char e)))
(insert (integer->char e))
void]
[(<= 913 e 969)
(let ([lp (current-pos)])
(insert (string (integer->char (+ (- e 913) (char->integer #\A)))))
(insert (integer->char (+ (- e 913) (char->integer #\A))))
(lambda ()
(change-style delta:symbol lp (+ lp 1))))]