Changeset 14817 in project


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

a fix in the definition of white space

File:
1 edited

Legend:

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

    r14816 r14817  
    137137;; Match either 'sp' or 'htab'.
    138138
    139 (define wsp (lex:set char-set:whitespace))
     139(define wsp (lex:set (char-set #\space #\tab)))
    140140
    141141;; Match "linear white-space". That is any number of consecutive wsp,
     
    201201(define (drop p)
    202202  (lambda (ss)
     203    (print "ss = " ss)
    203204    (if (null? ss) ss
    204205        (begin
     
    207208                                   (else s)))
    208209                          ss)))
     210            (print "ss1 = " ss1)
    209211            (match (lex:longest (p ss1))
    210212                   ((eaten food) (let ((eaten1 (unbox (last eaten))))
Note: See TracChangeset for help on using the changeset viewer.