[Chicken-users] Trying to understand srfi-41 (streams)

[Bahman Movaqar]

I've been playing around `srfi-41` for an hour now.  It seems to me,
that regardless of the operations on the stream, the `head` doesn't
advance.  For example:

    (define my-stream (list->stream '(0 1 2 3)))
    (take 2 my-stream)

At this point I was expecting the stream head to have advanced by 2.
But this fails:

    (assert (equal? (stream-car my-stream) 2))

And of course, upon further investigation, the head hadn't moved an inch
after `take` or `car`.  What am I missing?

Thanks,

-- 
Bahman Movaqar

http://BahmanM.com - https://twitter.com/bahman__m
https://github.com/bahmanm - https://gist.github.com/bahmanm
PGP Key ID: 0x6AB5BD68 (keyserver2.pgp.com)

signature.asc
Description: OpenPGP digital signature