Freetype staging violation fix

db4
Slava Pestov 2007-12-28 22:52:00 -05:00
parent 58da31c071
commit f319b45de9
1 changed files with 5 additions and 8 deletions

7
extra/freetype/freetype.factor Normal file → Executable file
View File

@ -3,14 +3,11 @@
USING: alien alien.syntax kernel system combinators ; USING: alien alien.syntax kernel system combinators ;
IN: freetype IN: freetype
: load-freetype-library ( -- ) << "freetype" {
"freetype" {
{ [ macosx? ] [ "@executable_path/../Frameworks/libfreetype.6.dylib" "cdecl" add-library ] } { [ macosx? ] [ "@executable_path/../Frameworks/libfreetype.6.dylib" "cdecl" add-library ] }
{ [ windows? ] [ "freetype6.dll" "cdecl" add-library ] } { [ windows? ] [ "freetype6.dll" "cdecl" add-library ] }
{ [ t ] [ drop ] } { [ t ] [ drop ] }
} cond ; parsing } cond >>
load-freetype-library
LIBRARY: freetype LIBRARY: freetype