prettyprint.backend: add 1 to nesting-limit while pprinting hashtables 'cause H{ ~array~ ~array~ } is kind of useless
							parent
							
								
									6ce01d0b0d
								
							
						
					
					
						commit
						f9bd9efd7c
					
				| 
						 | 
				
			
			@ -226,7 +226,9 @@ M: object pprint-object ( obj -- )
 | 
			
		|||
M: object pprint* pprint-object ;
 | 
			
		||||
M: 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: compose pprint* pprint-object ;
 | 
			
		||||
M: hash-set pprint* pprint-object ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue