Changeset 14822 in project


Ignore:
Timestamp:
05/28/09 15:54:04 (10 years ago)
Author:
Ivan Raikov
Message:

save

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/abnf/abnf.scm

    r14818 r14822  
    157157(define vchar  (lex:set char-set:graphic))
    158158
    159 
    160159;; Match a "quoted pair". Any characters (excluding CR and LF) may be
    161160;; quoted.
    162161
    163 (define char-set:not-crlf (char-set-complement (string->char-set "\r\n")))
    164 (define quoted-pair (lex:seq (list (char #\\) (lex:set char-set:not-crlf))))
     162(define quoted-pair (lex:seq (list (char #\\) (lex:bar (list vchar wsp)))))
    165163
    166164;; Match a quoted string. The specials \ and " must be escaped inside
Note: See TracChangeset for help on using the changeset viewer.