Use call-next-method

2008-04-03 05:21:45 -05:00 · 2008-04-03 05:21:45 -05:00 · 45cf030cbd
parent 0041d2edae
commit 45cf030cbd
2 changed files with 7 additions and 1 deletions
--- a/extra/smtp/smtp-tests.factor
+++ b/extra/smtp/smtp-tests.factor
@ -3,6 +3,12 @@ smtp.server kernel sequences namespaces logging accessors
 assocs sorting ;
 IN: smtp.tests

+[ t ] [
+    <email>
+    dup clone "a" "b" set-header drop
+    headers>> assoc-empty?
+] unit-test
+
 { 0 0 } [ [ ] with-smtp-connection ] must-infer-as

 [ "hello\nworld" validate-address ] must-fail
--- a/extra/smtp/smtp.factor
+++ b/extra/smtp/smtp.factor
@ -106,7 +106,7 @@ LOG: smtp-response DEBUG
 TUPLE: email from to subject headers body ;

 M: email clone
-    (clone) [ clone ] change-headers ;
+    call-next-method [ clone ] change-headers ;

 : (send) ( email -- )
    [