Koopa

By Max Hallinan

A breakpoint debugger for a toy Lisp.

(define null?
  (lambda (xs)
    (equal? xs '())))

(define member?
  (lambda (x xs)
    (if (null? xs)
      (do (pause)
          '())
      (if (equal? x (car xs))
        (do (pause)
            't)
        (do (pause)
            (member? x (cdr xs)))))))

(print (member? 'tea '(coffee tea or milk)))