Scheme 函数调用错误方案

我正在使用编译我的方案代码，我遇到了一些函数调用错误。功能是：

 (define (bloop x)
      (cond
        ((null? x) 0)
        ((not (list? (car x))) 
            (+ 1 (bloop (cdr x))))
        ((eq? x ’()) (bloop (car x)))))

我想通过这样的考试：

(bloop '((1) 2 3 4))

但我得到：

Error: execute: unbound symbol: "’"

如有任何意见、问题或担忧，我们将不胜感激。

请在以下行中填写：

((eq? x ’()) (bloop (car x)))))

“

符号不是ASCII引号

”

注：在Scheme中，术语

bloop

是一个过程。函数是数学的东西，比如“sin（x）”，但

（sin x）

是实现此函数的过程。

在第行：

((eq? x ’()) (bloop (car x)))))

“

符号不是ASCII引号

”

---

注：在Scheme中，术语

bloop

是一个过程。函数是数学的东西，比如“sin（x）”，但是

（sin x）

是实现此函数的过程。

我看到Biwa方案使用“函数”来表示“过程”。异教徒！：）我看到毕瓦方案使用“功能”来表示“程序”。异教徒！：）

bloop的几个点：1
（null？x）
和
（eq？x'（））
检查相同的内容；2. 
cond
在某些（大多数？）方案实施中，要求有
else
子句。3.如果
x
是一个数字怎么办？两个
bloop
点：1
（null？x）
和
（eq？x'（））
检查相同的内容；2. 
cond
在某些（大多数？）方案实施中，要求有
else
子句。3.如果
x
是一个数字怎么办？