recursion - 再帰関数が機能しない '「プロシージャ car の型引数が間違っています」

Question

要素 A とリスト L を取り、L に等しいリストを返す再帰関数を作成していますが、A が出現するたびに削除されます。ここに私が書いたものがあります：

(define (remove A L)
    (cond   ( (eq? A (car L))       (remove A (cdr L)) )
            ( (not(eq? A (car L)))  (cons (car L) (remove A (cdr L))) )
            ( (null? L)             '() )
    )
)

コンパイルして実行すると、次のエラーが発生します。

/tmp/compile/5c6515d8-e155-11e5-9605-aa00009baa05/input/main.scheme:2:21: In procedure remove:

/tmp/compile/5c6515d8-e155-11e5-9605-aa00009baa05/input/main.scheme:2:21: In procedure car: Wrong type argument in position 1 (expecting pair): ()