]> gitweb.factorcode.org Git - factor.git/commitdiff
Don't use colors.constants in prettyprint
authorSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 13 Mar 2009 02:25:33 +0000 (21:25 -0500)
committerSlava Pestov <slava@slava-pestovs-macbook-pro.local>
Fri, 13 Mar 2009 02:25:33 +0000 (21:25 -0500)
basis/prettyprint/prettyprint.factor

index 2bdf3fb0ef1c282d6597ca62248ef00b34df963a..5eb04c951011578bb18b6f7ffe5fd463a1709d1f 100644 (file)
@@ -40,12 +40,12 @@ IN: prettyprint
             \ USING: pprint-word
             [ pprint-vocab ] each
             \ ; pprint-word
-        ] with-pprint
+        ] with-pprint nl
     ] unless-empty ;
 
 : use/in. ( in use -- )
     dupd remove [ { "syntax" "scratchpad" } member? not ] filter
-    use. nl in. ;
+    use. in. ;
 
 : vocab-names ( words -- vocabs )
     dictionary get
@@ -61,7 +61,7 @@ IN: prettyprint
         "To avoid doing this in the future, add the following USING:" print
         "and IN: forms at the top of the source file:" print nl
     ] with-style
-    { { page-color COLOR: light-gray } } [ prelude. ] with-nesting
+    { { page-color T{ rgba f 0.8 0.8 0.8 1.0 } } } [ prelude. ] with-nesting
     nl nl
 ] print-use-hook set-global