Test output for expand-full [ok]

Testing time: 0s

/root/salmonella-run-publish/chicken/bin/csi -script run.scm < /dev/null
(##core#let
  ((strm yy))
  (##core#if
    (not (stream? strm))
    (##core#begin (error-invalid-stream (##core#quote stream-match) strm))
    (##core#let
      ((tmp (##core#if
              (stream-null? strm)
              (##core#let () (list (stream (stream x))))
              #f)))
      (##core#if
        tmp
        (car tmp)
        (##core#let
          ((tmp (##core#if
                  (stream-pair? strm)
                  (##core#let
                    ((temp (stream-car strm)) (strm (stream-cdr strm)))
                    (##core#let
                      ((ys strm) (y temp))
                      (list (stream-append
                              (stream (stream-cons x yy))
                              (stream-map
                                (##core#lambda (z) (stream-cons y z))
                                (stream-intersperse ys x))))))
                  #f)))
          (##core#if
            tmp
            (car tmp)
            (##core#begin
              (error (##core#quote stream-match) "pattern failure"))))))))
(##core#if a b #f)