Changeset 27871 in project


Ignore:
Timestamp:
11/24/12 14:00:46 (7 years ago)
Author:
Ivan Raikov
Message:

lexgen: change tok combinator to call failure continuation on empty input stream

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/lexgen/trunk/lexgen.scm

    r27426 r27871  
    241241           (let ((c (car strm))
    242242                 (u (cadr strm)))
    243              (cond ((eoi? u)    (sk strm))
    244                    ((empty? u)  (sk (list c (make-eoi))))
     243             (cond ((eoi? u)    (fk strm))
     244                   ((empty? u)  (fk (list c (make-eoi))))
    245245                   ((p t (head u)) =>
    246246                    (lambda (ans) (sk (list (cons ans c) (tail u)))))
Note: See TracChangeset for help on using the changeset viewer.