Changeset 17999 in project


Ignore:
Timestamp:
05/05/10 18:19:31 (9 years ago)
Author:
azul
Message:

Bug fix. Sometimes char=? will raiser error if not given a character, sometimes not.

File:
1 edited

Legend:

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

    r12568 r17999  
    208208    (define (get-athom-char start rules)
    209209      (and (not (null? rules))
    210            (or (and (char=? (caar rules) start) (car rules))
     210           (or (and (char? start) (char=? (caar rules) start) (car rules))
    211211               (get-athom-char start (cdr rules)))))
    212212
Note: See TracChangeset for help on using the changeset viewer.