Changeset 2522 in project


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

Fixes.

File:
1 edited

Legend:

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

    r2521 r2522  
    8282    (if (zero? count)
    8383      name
    84       (stream-append name (stream #\_) (+ count 2)))))
     84      (stream-append name (stream #\_) (number->stream (+ count 1))))))
    8585
    8686; Convenience function for creating recognize-start functions for line-oriented file formats.
Note: See TracChangeset for help on using the changeset viewer.