Changeset 14814 in project


Ignore:
Timestamp:
05/28/09 03:47:15 (10 years ago)
Author:
Ivan Raikov
Message:

drop and collect renamed to drop-chars and collect-chars, respectively

File:
1 edited

Legend:

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

    r14813 r14814  
    4747          optional-sequence
    4848          set set-from-string
    49           bind drop consume collect
     49          bind consume drop-chars collect-chars
    5050          )
    5151
     
    191191             (else #f)))))
    192192
    193 (define (drop p) (bind (lambda (x) (drop-while char? x)) p))
     193(define (drop-chars p)
     194  (bind (lambda (x) (drop-while char? x)) p))
    194195
    195196(define (consume p)
     
    201202
    202203
    203 (define (collect . rest)
     204(define (collect-chars . rest)
    204205  (define (consumed-chars cs)
    205206    (and (pair? cs)
Note: See TracChangeset for help on using the changeset viewer.