factor: remove """ string syntax for now. there are HEREDOC:, STRING:, escaping ...

[factor.git] / basis / ui / pixel-formats / pixel-formats-docs.factor

diff --git a/basis/ui/pixel-formats/pixel-formats-docs.factor b/basis/ui/pixel-formats/pixel-formats-docs.factor
index 684d87d0b5ac8a51421acbbf19d5392db39849fc..74a5b682c5005774875956a0e9f9ad496bfcc046 100644 (file)
--- a/basis/ui/pixel-formats/pixel-formats-docs.factor
+++ b/basis/ui/pixel-formats/pixel-formats-docs.factor
@@ -45,7 +45,7 @@ ARTICLE: "ui.pixel-formats-attributes" "Pixel format attributes"
 }
 { $examples
 "The following " { $link world } " subclass will request a double-buffered window with minimum 24-bit color and depth buffers, and will throw an error if the requirements aren't met:"
-{ $code """USING: kernel ui.gadgets.worlds ui.pixel-formats ;
+{ $code "USING: kernel ui.gadgets.worlds ui.pixel-formats ;
 IN: ui.pixel-formats.examples
 
 TUPLE: picky-depth-buffered-world < world ;
@@ -59,10 +59,10 @@ M: picky-depth-buffered-world world-pixel-format-attributes
 
 M: picky-depth-buffered-world check-world-pixel-format
     nip
-    [ double-buffered pixel-format-attribute 0 = [ "Not double buffered!" throw ] when ]
-    [ color-bits pixel-format-attribute 24 < [ "Not enough color bits!" throw ] when ]
-    [ depth-bits pixel-format-attribute 24 < [ "Not enough depth bits!" throw ] when ]
-    tri ;""" } }
+    [ double-buffered pixel-format-attribute 0 = [ \"Not double buffered!\" throw ] when ]
+    [ color-bits pixel-format-attribute 24 < [ \"Not enough color bits!\" throw ] when ]
+    [ depth-bits pixel-format-attribute 24 < [ \"Not enough depth bits!\" throw ] when ]
+    tri ;" } }
 ;
 
 HELP: double-buffered