From 6e00eaa3f87913c40e6de45cc63caebf0ce651d4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Tue, 18 Oct 2011 13:25:47 -0700 Subject: [PATCH] Fix stack effect to not print "(( -- ))", remove stray effect from smtp. --- basis/prettyprint/backend/backend.factor | 2 +- basis/smtp/smtp.factor | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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