From: Doug Coleman <doug.coleman@gmail.com>
Date: Sat, 29 Aug 2009 22:18:30 +0000 (-0500)
Subject: fix uniscribe
X-Git-Tag: 0.97~5635^2~11^2~18
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=eb21a7b0dd93f4c41dbdfbf1474aff1ea4d47cd3

fix uniscribe
---

diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor
index 1c1830fa02..9555927ab1 100755
--- a/basis/windows/uniscribe/uniscribe.factor
+++ b/basis/windows/uniscribe/uniscribe.factor
@@ -82,6 +82,7 @@ TUPLE: script-string < disposable font string metrics ssa size image ;
 : script-string-size ( script-string -- dim )
     ssa>> ScriptString_pSize
     dup win32-error=0/f
+    SIZE memory>struct
     [ cx>> ] [ cy>> ] bi 2array ;
 
 : dc-metrics ( dc -- metrics )