Changeset 15721 in project


Ignore:
Timestamp:
09/03/09 03:11:54 (10 years ago)
Author:
iraikov
Message:

save

File:
1 edited

Legend:

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

    r15717 r15721  
    134134  (syntax-rules ()
    135135    ((_ p)    (abnf:bind sscollect (abnf:longest p)))
     136    ))
     137
     138(define lcollect-strings (lcollect string?))
     139
     140;; shortcut for (abnf:bind (lcollect-strings ...) (abnf:longest ... ))
     141(define-syntax consumed-strings->list
     142  (syntax-rules ()
     143    ((_ l p)    (abnf:bind (lcollect-strings l)  (abnf:longest p)))
     144    ((_ p)      (abnf:bind (lcollect-strings)    (abnf:longest p)))
     145    ))
     146
     147(define lcollect-pairs  (lcollect pair?))
     148
     149;; shortcut for (abnf:bind (lcollect-pairs ...) (abnf:longest ... ))
     150(define-syntax consumed-pairs->list
     151  (syntax-rules ()
     152    ((_ l p)    (abnf:bind (lcollect-pairs l)  (abnf:longest p)))
     153    ((_ p)      (abnf:bind (lcollect-pairs)    (abnf:longest p)))
    136154    ))
    137155
Note: See TracChangeset for help on using the changeset viewer.