Test output for expand-full [ok]

Testing time: 2s

'/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1
*** csi ***

stream s-expr expand
(##core#let
  ((strm yy))
  (##core#if
    (not (stream? strm))
    (##core#begin (error-invalid-stream 'stream-match strm))
    (##core#let
      ((tmp (stream-match-test strm (() (stream (stream x))))))
      (##core#if
        tmp
        (car tmp)
        (##core#let
          ((tmp (stream-match-test
                  strm
                  ((y . ys)
                   (stream-append
                     (stream (stream-cons x yy))
                     (stream-map
                       (lambda (z) (stream-cons y z))
                       (stream-intersperse ys x)))))))
          (##core#if
            tmp
            (car tmp)
            (##core#begin (error 'stream-match "pattern failure"))))))))

'(and a b) expand
(##core#if a b #f)
-- done testing Expand Full --------------------------------------------------


*** csc "-inline-global -specialize -optimize-leaf-routines -clustering -lfa2 -local -inline -no-trace -no-lambda-info -unsafe" ***
-- done testing Expand Full --------------------------------------------------