[plt-scheme] Processing lists

i am trying to solve a problem which is to find out number of occurrence of
a symbol in list of symbols.

;question in a given list find out how many times  a symbol occurs in the
list.
;contract : fun-with-lists s-list * symbol -> number
;purpose : this function takes an s-list and a symbol as input and finds out
how many times the symbol occurs in the list.
;examples 'a -> () =0 , ('a) =1 , ('b) = 0 , ('b 'c 'a 'a) = 2 , ('b 'c 'd)
=0
;template (define fun-with-lists (lambda s-list sym) (cond [(empty? s-list)]
[ else (first s-list) fun-with-lists(rest s-list])))
(define fun-with-lists (lambda (s-list sym )
                         (cond
                           [(empty? s-list) 0]
                           [else (cond
                                   [(symbol=? (first s-list) sym ) 1]

                                   [else (fun-with-lists (rest s-list) sym
)])])))


I got to this far using the recipe explained in htdp.I am stuck at the point
where i can't increment the occurrence of a symbol .Can someone give me a
hint.


Aditya
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20090305/22e78775/attachment.html>