SICP练习3.51：stream-map调用cons-stream时类型错误排查

嘿，这个问题我之前玩SICP流的时候也踩过坑！核心原因是Guile里的cons-stream定义和SICP教材的预期不匹配，导致stream-map调用它的时候触发了类型错误。

为什么会报错？ #

你提供的stream.scm里，cons-stream应该是被定义成了一个语法转换器（宏），而非普通的Scheme过程。但SICP里的stream-map实现通常是把cons-stream当作普通过程来调用的——宏是编译期展开的语法结构，不能像过程那样在运行期被当作函数调用，这就直接触发了这个错误。

具体来看：

• 执行display-stream x0时，只是遍历已经构造好的流（stream-enumerate-interval生成的），不需要动态调用cons-stream，所以一切正常。
• 但stream-map处理流时，会对每个元素执行show，然后用cons-stream构造新的流节点。如果cons-stream是宏，直接把它当过程调用（比如(cons-stream (show (stream-car s)) ...)），解释器就会报错：“这是个宏，不能当函数用！”，于是就抛出了那个类型错误。

两种解决办法，任你选 #

办法1：修改stream-map，绕开宏调用 #

既然cons-stream本质是(cons 头部元素 (delay 尾部流))的语法糖，那我们直接用底层的cons和delay来构造流节点，绕开对宏的调用：

把原来的stream-map代码：

(define (stream-map proc s)
  (if (stream-null? s)
      the-empty-stream
      (cons-stream (proc (stream-car s))
                   (stream-map proc (stream-cdr s)))))

改成：

(define (stream-map proc s)
  (if (stream-null? s)
      the-empty-stream
      (cons (proc (stream-car s))
            (delay (stream-map proc (stream-cdr s))))))

办法2：把cons-stream改成普通过程 #

如果你的stream.scm里cons-stream是用define-syntax定义的宏，直接把它改成普通过程即可：

(define (cons-stream a b)
  (cons a (delay b)))

现在cons-stream就是一个可以正常调用的过程，stream-map原有代码不需要修改，直接就能用。

注：Guile里的delay本身是宏，但在过程里调用(delay b)是没问题的，解释器会自动展开它。

测试验证 #

修改完成后再执行(stream-map show x0)，应该会依次打印0、1、2、3，且不会再报类型错误，同时返回正确的流对象。

内容的提问来源于stack exchange，提问作者byhc