関数呼び出しエラースキーム

Question

https://repl.it/languages/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。スキームjargon bloopは手順です。 関数は "sin（x）"のような数学的なものですが、(sin x)はこの関数を実装する手続きです。