git/t/t4018/scheme-library

12 lines
340 B
Plaintext

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