Fix stack effect to not print "(( -- ))", remove stray effect from smtp.

diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor
index 5d41f4af002d1cb3852ea94412fbb6946a806bc1..09d93a03346daf59616b3a61fd893263aeba87e6 100644 (file)
--- a/basis/prettyprint/backend/backend.factor
+++ b/basis/prettyprint/backend/backend.factor
@@ -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* ;

diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor
index 5b99edc9e8fa316287f5fa69367cc9e2849d0cb1..a4ba630f3c1eb60861abded26a08dc08b5090918 100644 (file)
--- a/basis/smtp/smtp.factor
+++ b/basis/smtp/smtp.factor
@@ -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