From "The Little Schemer" to newLISP

[cameyo]

I am reading the book "The Little Schemer" (yes, i know newLISP is different from Scheme...but i'm learning)
Until chapter 8 i had no problem to translate the code in newLISP.
But now i have the following function:

Code: Select all

(define (rember-f test?)
    (lambda (a l)
      (cond
       ((null? l) '())
       ((test? (first l) a) (rest l))
       (true (cons (first l) ((rember-f test?) a (rest l)))))))

Calling it in the following way:

Code: Select all

((rember-f =) 'tuna '(shrimp salad and tuna salad))

I got an error:

Code: Select all

ERR: invalid function : (test? (first l) a)

Instead the correct output should be:

Code: Select all

(shrimp salad and salad)

Can you help me to solve this problem?
Thanks
cameyo

[newBert]

I think the definition of ‘rember-f’ is wrong.
A correct writing of this lambda would be :

Code: Select all

(define rember-f
  (lambda (test? a l)
    (cond
      ((null? l) '())
      ((test? (first l) a) (rest l))
      (true (cons (first l) (rember-f test? a (rest l)))))))

> (rember-f = 'tuna '(shrimp salad and tuna salad))
(shrimp salad and salad)

or (define (rember-f test? a l) (cond and so on ...))

[cameyo]

Thanks newBert.
Wrong method of passing parameters in my function.