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