Change :- to : in send-mail

mighty-gerbils · Dec 4, 2023 · 32cec0e · 32cec0e
1 parent 4b3644c
commit 32cec0e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/std/net/smtp/README.org b/src/std/net/smtp/README.org
@@ -116,7 +116,7 @@ The easy way to connect and interact with an SMTP server.
 
 #+begin_src scheme :tangle api.ss
   (def (send-mail smtp return-path forward-path . data)
-    (using (smtp :- SMTP)
+    (using (smtp : SMTP)
       (def sredaeh []) ;;(headers interted)
       (def body #f) ;; The body
       (def body? (? (or string? u8vector? procedure?)))

diff --git a/src/std/net/smtp/api.ss b/src/std/net/smtp/api.ss
@@ -2,7 +2,7 @@
 (export #t (import: ./interface ./session ./connection ./headers ./data))
 
 (def (send-mail smtp return-path forward-path . data)
-  (using (smtp :- SMTP)
+  (using (smtp : SMTP)
     (def sredaeh []) ;;(headers interted)
     (def body #f) ;; The body
     (def body? (? (or string? u8vector? procedure?)))