steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/prettyprint/backend/backend.factor
View File

@ -10,7 +10,7 @@ sequences strings vectors words words.symbol hash-sets ;
FROM: sets => members ; FROM: sets => members ;
IN: prettyprint.backend IN: prettyprint.backend
M: effect pprint* effect>string "(" ")" surround text ; M: effect pprint* effect>string text ;
: ?effect-height ( word -- n ) : ?effect-height ( word -- n )
stack-effect [ effect-height ] [ 0 ] if* ; stack-effect [ effect-height ] [ 0 ] if* ;

2
basis/smtp/smtp.factor
View File

@ -28,7 +28,7 @@ C: <plain-auth> plain-auth
SYMBOL: smtp-auth SYMBOL: smtp-auth
no-auth smtp-auth set-global no-auth smtp-auth set-global
LOG: log-smtp-connection NOTICE ( addrspec -- ) LOG: log-smtp-connection NOTICE
: with-smtp-connection ( quot -- ) : with-smtp-connection ( quot -- )
smtp-server get smtp-server get