Source Code
(define (list-member-find element elementlist)
;; Returns the index of an element in a list
(let loop ((elemlist elementlist) (count 0))
(if (null? elemlist)
-1
(if (equal? element (car elemlist))
count
(loop (cdr elemlist) (+ count 1))))))