Fixed mistake introduced in the last patch.

diff --git a/extra/cairo/samples/samples.factor b/extra/cairo/samples/samples.factor
index 0805cd41c16a663956caa60ebcf092cb528d1bb5..3cc63922f874592d3a822a7209b2834613aee055 100644 (file)
--- a/extra/cairo/samples/samples.factor
+++ b/extra/cairo/samples/samples.factor
@@ -116,8 +116,8 @@ IN: cairo.samples
     cr cairo_fill ;
 
 : utf8 ( -- )
-    ! cr "kochi" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_NORMAL
-    ! cairo_select_font_face
+    cr "Sans" CAIRO_FONT_SLANT_NORMAL CAIRO_FONT_WEIGHT_NORMAL
+    cairo_select_font_face
     cr 50 cairo_set_font_size
     "cairo_text_extents_t" malloc-object
     cr "日本語" pick cairo_text_extents