t/t4018/scheme-library


1
2
3
4
5
6
7
8
9
10
11

(library (my-helpers id-stuff) RIGHT
  (export find-dup)
  (import (ChangeMe))
  (define (find-dup l)
    (and (pair? l)
         (let loop ((rest (cdr l)))
           (cond
            [(null? rest) (find-dup (cdr l))]
            [(bound-identifier=? (car l) (car rest))
             (car rest)]
            [else (loop (cdr rest))])))))