blob: 82ea3df51085e893203b13963c73c7180563acbe (
plain)
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))])))))
|