gistfile1.sls

;; Is this a good way to "remove" elements from a list? It just builds a new
;; list after filtering out the element I want removed.

(define (filter-out-fd fd)
    ;; builds a new list after filtering out fd
    (let loop ((li fd-list) (newlist '()))
        (if (null? li)
            newlist
            (if (eq? fd (car li))
                (loop (cdr li) newlist)
                (loop (cdr li) (append newlist (list (car li))))))))