12 lines
210 B
Scheme
12 lines
210 B
Scheme
|
|
(module smtp mzscheme
|
|
(require (lib "unitsig.ss"))
|
|
|
|
(require "smtp-sig.ss")
|
|
(require "smtp-unit.ss")
|
|
|
|
(define-values/invoke-unit/sig net:smtp^
|
|
net:smtp@)
|
|
|
|
(provide-signature-elements net:smtp^))
|