fix endian issue

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 236c8eefa4944ba2131a001effec2a57b1fca14b..6c95f61591a1a3673905daf8fd7a2722e9698082 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,6 +1,9 @@
 0.79:\r
 \r
-- fix remaining cosmetic issues in UI\r
+- tutorial gradient does not appear\r
+- sig11 on first startup\r
+- fix initial font metrics being incorrect\r
+- fix solid boundary paint\r
 - investigate UI on Linux/x86\r
 - swap @{ and { syntax\r
 - get stuff in examples dir running in the ui\r
@@ -95,6 +98,7 @@
 \r
 + kernel:\r
 \r
+- better prettyprinting of cond\r
 - better handling of random arrangements of html words when\r
   prettyprinting\r
 - friendlier .factor-rc load error handling\r

diff --git a/library/freetype/freetype-gl.factor b/library/freetype/freetype-gl.factor
index 5a8f82462aef6d756b6d8941e6475102fa6a4bcd..0668f9333228e70bc204d0b9a4330769ebf03df8 100644 (file)
--- a/library/freetype/freetype-gl.factor
+++ b/library/freetype/freetype-gl.factor
@@ -129,12 +129,10 @@ C: font ( handle -- font )
 : with-locked-block ( size quot -- | quot: address -- )
     swap 1 calloc [ swap call ] keep free ; inline
 
-: b/b>w 8 shift bitor ;
-
 : copy-pixel ( bit tex -- bit tex )
-    f pick alien-unsigned-1 255 b/b>w
-    f pick set-alien-unsigned-2
-    >r 1+ r> 2 + ;
+    255 f pick set-alien-unsigned-1 1+
+    f pick alien-unsigned-1
+    f pick set-alien-unsigned-1 >r 1+ r> 1+ ;
 
 : (copy-row) ( bit tex bitend texend -- bitend texend )
     >r pick over >= [