Changeset 14960 in project


Ignore:
Timestamp:
06/10/09 04:47:27 (11 years ago)
Author:
Ivan Raikov
Message:

abnf save

File:
1 edited

Legend:

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

    r14939 r14960  
    7878                                                        (eaten1 (drop-right eaten 1))
    7979                                                        (x      (f eaten1)))
    80                                                    (let ((res (if x (list (append x (list eaten0)) food)
     80                                                   (let ((res (if x (list (append x (unbox eaten0)) food)
    8181                                                                  (list (unbox eaten0) food))))
    8282                                                     res)))
     
    120120                 (else               (cons ax cs))))))
    121121  (let-optionals rest ((kons #f))
    122     (let ((make (cond ((symbol? kons)     (lambda (x) `(,kons ,(car x))))
    123                       ((procedure? kons)  (lambda (x) (kons (car x))))
     122    (let ((make (cond ((symbol? kons)     (lambda (x) `(,kons ,x)))
     123                      ((procedure? kons)  (lambda (x) (kons x)))
    124124                      (else car))))
    125125      (lambda (x)
    126126        (let* ((x1   (consumed-chars x))
    127                (res  (and x1 (not (null? (car x1))) (cons (make x1) (cdr x1)))))
     127               (res  (and x1 (not (null? x1)) (cons (make (car x1)) (cdr x1)))))
    128128          res)))))
    129129
Note: See TracChangeset for help on using the changeset viewer.