File: scheme-library

package info (click to toggle)
git 1%3A2.50.1-0.1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 61,696 kB
  • sloc: ansic: 302,907; sh: 260,696; perl: 27,874; tcl: 22,303; makefile: 4,280; python: 3,442; javascript: 772; csh: 45; lisp: 12
file content (11 lines) | stat: -rw-r--r-- 340 bytes parent folder | download | duplicates (5) 
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))])))))