summaryrefslogtreecommitdiff
path: root/t/t4018/scheme-library
diff options
context:
space:
mode:
Diffstat (limited to 't/t4018/scheme-library')
-rw-r--r--t/t4018/scheme-library11
1 files changed, 11 insertions, 0 deletions
diff --git a/t/t4018/scheme-library b/t/t4018/scheme-library
new file mode 100644
index 0000000000..82ea3df510
--- /dev/null
+++ b/t/t4018/scheme-library
@@ -0,0 +1,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))])))))