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

db4
John Benediktsson 2011-10-18 13:25:47 -07:00
parent 80e1c8e3f2
commit 6e00eaa3f8
2 changed files with 2 additions and 2 deletions

View File

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

View File

@ -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