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

View File

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