From f319b45de90f7f5c55dc4b6e745bba754bb8e8ac Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 28 Dec 2007 22:52:00 -0500
Subject: [PATCH] Freetype staging violation fix

---
 extra/freetype/freetype.factor | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)
 mode change 100644 => 100755 extra/freetype/freetype.factor

diff --git a/extra/freetype/freetype.factor b/extra/freetype/freetype.factor
old mode 100644
new mode 100755
index b7fc1d66ab..e32f14432b
--- a/extra/freetype/freetype.factor
+++ b/extra/freetype/freetype.factor
@@ -3,14 +3,11 @@
 USING: alien alien.syntax kernel system combinators ;
 IN: freetype
 
-: load-freetype-library ( -- )
-    "freetype" {
-        { [ macosx? ] [ "@executable_path/../Frameworks/libfreetype.6.dylib" "cdecl" add-library ] }
-        { [ windows? ] [ "freetype6.dll" "cdecl" add-library ] }
-        { [ t ] [ drop ] }
-    } cond ; parsing
-
-load-freetype-library
+<< "freetype" {
+    { [ macosx? ] [ "@executable_path/../Frameworks/libfreetype.6.dylib" "cdecl" add-library ] }
+    { [ windows? ] [ "freetype6.dll" "cdecl" add-library ] }
+    { [ t ] [ drop ] }
+} cond >>
 
 LIBRARY: freetype