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

vocabs.prettyprint: fix error when printing auto-use

db4
Slava Pestov 2010-01-28 16:46:24 +13:00
parent d215c108f3
commit ce60f3c6b6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/vocabs/prettyprint/prettyprint.factor
View File

@ -64,12 +64,15 @@ M: rename pprint-qualified ( rename -- )
tri tri
] with-pprint ; ] with-pprint ;
: filter-interesting ( seq -- seq' )
[ [ vocab? ] [ extra-words? ] bi or not ] filter ;
PRIVATE> PRIVATE>
: (pprint-manifest ( manifest -- quots ) : (pprint-manifest ( manifest -- quots )
[ [
[ search-vocabs>> [ '[ _ pprint-using ] , ] unless-empty ] [ search-vocabs>> [ '[ _ pprint-using ] , ] unless-empty ]
[ qualified-vocabs>> [ extra-words? not ] filter [ '[ _ pprint-qualified ] , ] each ] [ qualified-vocabs>> filter-interesting [ '[ _ pprint-qualified ] , ] each ]
[ current-vocab>> [ '[ _ pprint-in ] , ] when* ] [ current-vocab>> [ '[ _ pprint-in ] , ] when* ]
tri tri
] { } make ; ] { } make ;