From 453c0f1a1d3cae6d1be902af8e49f376b034d8eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A8re=20J=C3=A9r=C3=B4me?= Date: Sat, 6 Jun 2015 17:19:45 +0200 Subject: [PATCH] Correction to the 8-10th selector aliases --- lib/srfi/1/selectors.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/srfi/1/selectors.scm b/lib/srfi/1/selectors.scm index 66dca43c..678f689a 100644 --- a/lib/srfi/1/selectors.scm +++ b/lib/srfi/1/selectors.scm @@ -9,9 +9,9 @@ (define (fifth ls) (car (cdr (cdr (cdr (cdr ls)))))) (define (sixth ls) (car (cdr (cdr (cdr (cdr (cdr ls))))))) (define (seventh ls) (car (cdr (cdr (cdr (cdr (cdr (cdr ls)))))))) -(define (eighth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr ls)))))))) -(define (ninth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr ls))))))))) -(define (tenth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr ls)))))))))) +(define (eighth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr ls))))))))) +(define (ninth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr ls)))))))))) +(define (tenth ls) (car (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr (cdr ls))))))))))) (define (car+cdr x) (values (car x) (cdr x)))