]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/render/render.factor
Fix conflicts
[factor.git] / basis / ui / render / render.factor
index e5b4bb8867cfc76c9734c0c69a5a936763e72f21..5cbac9798a054f096eb736b12d0eaa9619b9c38b 100755 (executable)
@@ -228,7 +228,7 @@ HOOK: free-fonts font-renderer ( world -- )
     dup string? [
         string-width
     ] [
-        0 -rot [ string-width max ] with each
+        [ 0 ] 2dip [ string-width max ] with each
     ] if ;
 
 : text-dim ( open-font text -- dim )