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

[factor.git] / basis / prettyprint / backend / backend.factor

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* ;