Changeset 14818 in project


Ignore:
Timestamp:
05/28/09 05:42:24 (10 years ago)
Author:
Ivan Raikov
Message:

fixes in the definition of linear white space

File:
1 edited

Legend:

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

    r14817 r14818  
    139139(define wsp (lex:set (char-set #\space #\tab)))
    140140
    141 ;; Match "linear white-space". That is any number of consecutive wsp,
    142 ;; optionally followed by a 'crlf' and (at least) one more wsp.
    143 
    144 (define lwsp (lex:seq (list (lex:pos wsp) (lex:opt (lex:seq (list crlf (lex:pos wsp)))))))
     141;; Match linear white space: *(WSP / CRLF WSP)
     142
     143(define lwsp (lex:star (lex:bar (list wsp (lex:seq (list crlf wsp))))))
    145144
    146145
     
    201200(define (drop p)
    202201  (lambda (ss)
    203     (print "ss = " ss)
    204202    (if (null? ss) ss
    205203        (begin
     
    208206                                   (else s)))
    209207                          ss)))
    210             (print "ss1 = " ss1)
    211208            (match (lex:longest (p ss1))
    212209                   ((eaten food) (let ((eaten1 (unbox (last eaten))))
Note: See TracChangeset for help on using the changeset viewer.