Changeset 2520 in project


Ignore:
Timestamp:
11/26/06 18:37:23 (15 years ago)
Author:
azul
Message:

Fixes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • stream-sections/trunk/stream-sections.scm

    r2517 r2520  
    7777
    7878(define (sections-accept-new-name! previous-sections name)
    79   (let* ((key (stream->string (section-name section)))
     79  (let* ((key (stream->string name))
    8080         (count (hash-table-ref/default previous-sections key 0)))
    8181    (hash-table-set! previous-sections key (+ count 1))
    8282    (if (zero? count)
    83       (section-name section)
    84       (stream-append (section-name section) (stream #\_) (+ count 2)))))
     83      name
     84      (stream-append name (stream #\_) (+ count 2)))))
    8585
    8686; Convenience function for creating recognize-start functions for line-oriented file formats.
Note: See TracChangeset for help on using the changeset viewer.