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

Add limits to see

db4
Slava Pestov 2008-09-29 04:09:21 -05:00
parent df88e5a974
commit 46a530c58e
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/prettyprint/prettyprint.factor
View File

@ -230,10 +230,14 @@ M: word declarations.
: pprint-; ( -- ) \ ; pprint-word ; : pprint-; ( -- ) \ ; pprint-word ;
: (see) ( spec -- ) : (see) ( spec -- )
<colon dup synopsis* [
<block dup definition pprint-elements block> 12 nesting-limit set
dup definer nip [ pprint-word ] when* declarations. 100 length-limit set
block> ; <colon dup synopsis*
<block dup definition pprint-elements block>
dup definer nip [ pprint-word ] when* declarations.
block>
] with-scope ;
M: object see M: object see
[ (see) ] with-use nl ; [ (see) ] with-use nl ;