函数调用错误Scheme

Question

我正在使用https://repl.it/languages/scheme来编译我的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: "’"

任何评论，问题或疑虑都表示赞赏。

Answer 1

排队：

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

’符号不是ASCII引号'。

PS。在方案行话bloop是一个过程。 函数是数学的，如“sin（x）”，但(sin x)是实现此函数的过程。