Minimize OpenGL state changes

[factor.git] / library / ui / world.factor

diff --git a/library/ui/world.factor b/library/ui/world.factor
index 139de9e0e9dd8cb9f093011134c4a77f62d45ea7..f56a613ad8d68dfe3fc1456bad7f1a4df7c642f7 100644 (file)
--- a/library/ui/world.factor
+++ b/library/ui/world.factor
@@ -64,8 +64,8 @@ M: world model-changed
 : font-sprites ( font world -- pair )
     world-fonts [ lookup-font V{ } clone 2array ] cache ;
 
-: draw-string ( font string -- )
-    >r world get font-sprites first2 r> (draw-string) ;
+: draw-string ( font string loc -- )
+    >r >r world get font-sprites first2 r> r> (draw-string) ;
 
 M: world gadget-title world-gadget gadget-title ;