Test output for expand-full

Testing time: 0.0s

CHICKEN_INSTALL_PREFIX=/root/src/salmonella/salmonella-4.5.0/repo CHICKEN_INCLUDE_PATH=/root/src/salmonella/salmonella-4.5.0/repo/share/chicken CHICKEN_REPOSITORY=/root/src/salmonella/salmonella-4.5.0/repo/lib/chicken/5 /usr/local/chicken-4.5.0/bin/csi -script run.scm
(##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)