Changeset 14878 in project


Ignore:
Timestamp:
06/03/09 14:44:01 (10 years ago)
Author:
Ivan Raikov
Message:

save

File:
1 edited

Legend:

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

    r14877 r14878  
    215215(define (drop-consumed p)
    216216  (lambda (a r ss)
    217     (let ((ss1 (map (lambda (s)
    218                       (match s ((eaten food)  (list (list (make-box eaten)) food))
    219                              (else s)))
    220                     ss))
     217    (let* ((ss1 (map (lambda (s)
     218                       (match s
     219                              ((eaten food)  (list (list (make-box eaten)) food))
     220                              (else s)))
     221                     ss))
    221222          (a1  (lambda (ss)
    222                  (let ((ss1 (lex:longest ss)))
    223                    (match ss1
    224                           ((eaten food) (let ((eaten1 (unbox (last eaten))))
    225                                           (a (list (list eaten1 food)))))
    226                           (else (r ss)))))))
     223                   (a (map (lambda (s)
     224                             (match s
     225                                    ((eaten food) (let* ((eaten1 (unbox (last eaten)))
     226                                                         (s1     (list eaten1 food)))
     227                                                    s1))
     228                                    (else s)))
     229                           ss)))))
    227230      (p a1 r ss1))))
    228231
Note: See TracChangeset for help on using the changeset viewer.