(define (lazyseq-with-stream)
  (list->stream (iota max)))


This is wrong.

It must be implemented as:

  (define-stream (lazyseq-with-stream)
    (stream-let loop ((v 1))
     (stream-cons v (loop (+ 1 v)))))

I get the same segfault with the following error:

  Too many heap sections: Increase MAXHINCR or MAX_HEAP_SECTS

Reply via email to