| (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))]))))) |