diff --git a/basis/prettyprint/backend/backend.factor b/basis/prettyprint/backend/backend.factor index 5d41f4af00..09d93a0334 100644 --- 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 5b99edc9e8..a4ba630f3c 100644 --- a/basis/smtp/smtp.factor +++ b/basis/smtp/smtp.factor @@ -28,7 +28,7 @@ C: 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