steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't use colors.constants in prettyprint

db4
Slava Pestov 2009-03-12 21:25:33 -05:00
parent e18e99acc3
commit effec0469c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/prettyprint/prettyprint.factor
View File

@ -40,12 +40,12 @@ IN: prettyprint
\ USING: pprint-word \ USING: pprint-word
[ pprint-vocab ] each [ pprint-vocab ] each
\ ; pprint-word \ ; pprint-word
] with-pprint ] with-pprint nl
] unless-empty ; ] unless-empty ;
: use/in. ( in use -- ) : use/in. ( in use -- )
dupd remove [ { "syntax" "scratchpad" } member? not ] filter dupd remove [ { "syntax" "scratchpad" } member? not ] filter
use. nl in. ; use. in. ;
: vocab-names ( words -- vocabs ) : vocab-names ( words -- vocabs )
dictionary get dictionary get
@ -61,7 +61,7 @@ IN: prettyprint
"To avoid doing this in the future, add the following USING:" print "To avoid doing this in the future, add the following USING:" print
"and IN: forms at the top of the source file:" print nl "and IN: forms at the top of the source file:" print nl
] with-style ] 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 nl nl
] print-use-hook set-global ] print-use-hook set-global