racket/draw: fix problems related to failed font fallbacks

This commit is contained in:
Matthew Flatt 2012-11-24 06:35:33 -07:00
parent 4ca6e3c452
commit 7d6dc98e0e
2 changed files with 2 additions and 2 deletions

View File

@ -1522,7 +1522,7 @@
(/ (PangoRectangle-width logical)
(exact->inexact PANGO_SCALE)))]
[flh (/ orig-h (exact->inexact PANGO_SCALE))]
[ld (/ (- orig-h baseline) (exact->inexact PANGO_SCALE))]
[ld (exact->inexact (/ (- orig-h baseline) (exact->inexact PANGO_SCALE)))]
[la 0.0])
(let ([lh (ceiling flh)])
(when cache

View File

@ -85,7 +85,7 @@
;; Inline PangoAnalysis:
[shape_engine _pointer]
[lang_engine _pointer]
[font PangoFont]
[font (_or-null PangoFont)]
[level _uint8]
[gravity _uint8]
[flags _uint8]