Fix stack effect to not print "(( -- ))", remove stray effect from smtp.
							parent
							
								
									80e1c8e3f2
								
							
						
					
					
						commit
						6e00eaa3f8
					
				| 
						 | 
				
			
			@ -10,7 +10,7 @@ sequences strings vectors words words.symbol hash-sets ;
 | 
			
		|||
FROM: sets => members ;
 | 
			
		||||
IN: prettyprint.backend
 | 
			
		||||
 | 
			
		||||
M: effect pprint* effect>string "(" ")" surround text ;
 | 
			
		||||
M: effect pprint* effect>string text ;
 | 
			
		||||
 | 
			
		||||
: ?effect-height ( word -- n )
 | 
			
		||||
    stack-effect [ effect-height ] [ 0 ] if* ;
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -28,7 +28,7 @@ C: <plain-auth> plain-auth
 | 
			
		|||
SYMBOL: smtp-auth
 | 
			
		||||
no-auth smtp-auth set-global
 | 
			
		||||
 | 
			
		||||
LOG: log-smtp-connection NOTICE ( addrspec -- )
 | 
			
		||||
LOG: log-smtp-connection NOTICE
 | 
			
		||||
 | 
			
		||||
: with-smtp-connection ( quot -- )
 | 
			
		||||
    smtp-server get
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue