Changeset 12731 in project


Ignore:
Timestamp:
12/03/08 01:13:57 (11 years ago)
Author:
Ivan Raikov
Message:

Fixed bug in stream->n-list.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/stream-wiki/trunk/stream-wiki.scm

    r12650 r12731  
    4545  (usual-integrations))
    4646
    47 (use svnwiki-extensions-support srfi-1 srfi-40 stream-ext html-stream stream-parser posix format-modular stream-sections uri match)
     47(use svnwiki-extensions-support srfi-1 srfi-13 srfi-14 srfi-40 stream-ext html-stream stream-parser posix format-modular stream-sections uri match)
    4848
    4949; An output driver is simply a table of functions.
     
    16561656;; those elements, otherwise return #f
    16571657(define (stream->n-list strm n)
    1658   (error "stream->n-list has bugs and has therefore been disabled.")
    16591658  (let loop ((strm strm) (i 0) (lst (list)))
    16601659    (if (stream-null? strm)
    1661         (if (= (+ 1 i) n) (list->string (reverse ax)) #f)
     1660        (and (= (+ 1 i) n) (list->string (reverse lst)))
    16621661        (if (< i n)
    16631662            (loop (stream-cdr strm) (+ 1 i) (cons (stream-car strm) lst))
Note: See TracChangeset for help on using the changeset viewer.