Changeset 12568 in project


Ignore:
Timestamp:
11/22/08 03:59:53 (11 years ago)
Author:
azul
Message:

Extending so it can parse streams with objects other than chars.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/stream-parser/trunk/stream-parser.scm

    r3017 r12568  
    306306                  ,(fail-unless stream (body `(,failsym)) `(,failsym))))
    307307              ((char? rule)
    308                `(if (and (not (stream-null? ,stream)) (char=? (stream-car ,stream) ,rule))
     308               `(if (and (not (stream-null? ,stream))
     309                         (char? (stream-car ,stream))
     310                         (char=? (stream-car ,stream) ,rule))
    309311                  (let ((,parsed (stream-cons ,rule ,parsed)) (,stream (stream-cdr ,stream)))
    310312                    ,(body `(,failsym)))
Note: See TracChangeset for help on using the changeset viewer.