From 0e31b239640d0b51e806b2a465a730280b6ba0a4 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 14 Sep 2008 01:50:49 -0500 Subject: [PATCH 1/2] Fix typo in example --- core/sequences/sequences-docs.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/sequences/sequences-docs.factor b/core/sequences/sequences-docs.factor index 5c0dbf7985..015e82f2c5 100755 --- a/core/sequences/sequences-docs.factor +++ b/core/sequences/sequences-docs.factor @@ -334,7 +334,7 @@ HELP: if-empty { $values { "seq" sequence } { "quot1" quotation } { "quot2" quotation } } { $description "Makes an implicit check if the sequence is empty. An empty sequence is dropped and " { $snippet "quot1" } " is called. Otherwise, if the sequence has any elements, " { $snippet "quot2" } " is called on it." } { $example - "USING: kernel prettyprint sequences sequences.lib ;" + "USING: kernel prettyprint sequences ;" "{ 1 2 3 } [ \"empty sequence\" ] [ sum ] if-empty ." "6" } ; From 5f04b99bad6aaf595a5399b7401753d61f177f1f Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Sun, 14 Sep 2008 01:50:55 -0500 Subject: [PATCH 2/2] Fix bad --- basis/smtp/smtp.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/smtp/smtp.factor b/basis/smtp/smtp.factor index 26bfea9a13..c17bccf064 100755 --- a/basis/smtp/smtp.factor +++ b/basis/smtp/smtp.factor @@ -8,7 +8,7 @@ calendar.format accessors sets hashtables ; IN: smtp SYMBOL: smtp-domain -SYMBOL: smtp-server "localhost" "smtp" smtp-server set-global +SYMBOL: smtp-server "localhost" 25 smtp-server set-global SYMBOL: smtp-read-timeout 1 minutes smtp-read-timeout set-global SYMBOL: esmtp? t esmtp? set-global