Changeset 15131 in project


Ignore:
Timestamp:
07/02/09 05:05:32 (11 years ago)
Author:
Ivan Raikov
Message:

smtp save

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/smtp/trunk/smtp.scm

    r15130 r15131  
    4040(module smtp *
    4141
    42         (import scheme chicken data-structures extras srfi-1 srfi-13)
    43 
    44         (require-library srfi-14 abnf)
    45         (import (prefix abnf abnf:) srfi-14)
     42        (import scheme chicken data-structures srfi-1 srfi-13 srfi-14)
     43
     44        (require-library extras abnf)
     45        (import (prefix abnf abnf:) (only extras sprintf fprintf ))
     46
    4647        (require-extension datatype matchable)
    4748        (import-for-syntax matchable)
     
    167168  success-code success-code? success-vector
    168169  success-code-inject success-code-project
    169   (Unused0)
     170  (Unused)
    170171  (PreliminarySuccess)
    171172  (Success)
     
    530531                      (abnf:optional-sequence (abnf:concatenation abnf:sp String))))
    531532
    532 (define noop (mkcmdp1 "NOOP" (lambda (x) (Noop))
    533                       (abnf:optional-sequence (abnf:concatenation abnf:sp String))))
     533(define noop0 (mkcmdp1 "NOOP" (lambda (x) (Noop))
     534                       (abnf:optional-sequence (abnf:concatenation abnf:sp String))))
    534535                       
    535536
     
    537538  (abnf:longest
    538539   (abnf:alternatives
    539     data rset noop quit turn helo mail rcpt
     540    data rset noop0 quit turn helo mail rcpt
    540541    send soml saml vrfy expn help ehlo
    541542    )))
Note: See TracChangeset for help on using the changeset viewer.