From: John Benediktsson Date: Sun, 4 Aug 2019 15:27:21 +0000 (-0700) Subject: windows.uniscribe: re-commit the &dispose removal. X-Git-Tag: 0.99~3775 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=05e895773206ab89a543c897a8973af7770cb765 windows.uniscribe: re-commit the &dispose removal. --- diff --git a/basis/windows/uniscribe/uniscribe.factor b/basis/windows/uniscribe/uniscribe.factor index 1f609246a5..252163e332 100644 --- a/basis/windows/uniscribe/uniscribe.factor +++ b/basis/windows/uniscribe/uniscribe.factor @@ -18,7 +18,7 @@ CONSTANT: ssa-dwFlags flags{ SSA_GLYPHS SSA_FALLBACK SSA_TAB } :: >codepoint-index ( str utf16-index -- codepoint-index ) 0 utf16-index 2 * str utf16n encode subseq utf16n decode length ; - + :: >utf16-index ( str codepoint-index -- utf16-index ) 0 codepoint-index str subseq utf16n encode length 2 / >integer ; @@ -169,5 +169,5 @@ SYMBOL: cached-script-strings ] with-memory-dc ] unless image>> ; -[ &dispose cached-script-strings set-global ] +[ cached-script-strings set-global ] "windows.uniscribe" add-startup-hook