From 32cec0e72a3d5bd201f7b8bbfa2cf5cad02f120d Mon Sep 17 00:00:00 2001 From: Drew Crampsie Date: Fri, 1 Dec 2023 01:52:20 +0000 Subject: [PATCH] Change :- to : in send-mail --- src/std/net/smtp/README.org | 2 +- src/std/net/smtp/api.ss | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/std/net/smtp/README.org b/src/std/net/smtp/README.org index 159641a72d..4e2d39aef7 100644 --- 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 index 01b513e029..8773214098 100644 --- 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?)))