prettyprint.backend: add 1 to nesting-limit while pprinting hashtables 'cause H{ ~array~ ~array~ } is kind of useless
parent
879e9b268d
commit
cdea2fa081
|
@ -226,7 +226,9 @@ M: object pprint-object ( obj -- )
|
||||||
M: object pprint* pprint-object ;
|
M: object pprint* pprint-object ;
|
||||||
M: vector pprint* pprint-object ;
|
M: vector pprint* pprint-object ;
|
||||||
M: byte-vector pprint* pprint-object ;
|
M: byte-vector pprint* pprint-object ;
|
||||||
M: hashtable pprint* pprint-object ;
|
M: hashtable pprint*
|
||||||
|
nesting-limit inc
|
||||||
|
[ pprint-object ] [ nesting-limit dec ] [ ] cleanup ;
|
||||||
M: curry pprint* pprint-object ;
|
M: curry pprint* pprint-object ;
|
||||||
M: compose pprint* pprint-object ;
|
M: compose pprint* pprint-object ;
|
||||||
M: hash-set pprint* pprint-object ;
|
M: hash-set pprint* pprint-object ;
|
||||||
|
|
Loading…
Reference in New Issue