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 Expand

(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 Expand

((rember-f =) 'tuna '(shrimp salad and tuna salad))
I got an error:

Code Select Expand

ERR: invalid function : (test? (first l) a)
Instead the correct output should be:

Code Select Expand

(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 Expand


(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.