From 71f0000d866e9dd2385364685f85693e1f95dc53 Mon Sep 17 00:00:00 2001 From: extrasharp Date: Sun, 1 Dec 2019 20:53:21 -0600 Subject: [PATCH] Fix (scheme cxr) definitions --- scheme/cxr.sld | 58 +++++++++++++++++++++++++------------------------- 1 file changed, 29 insertions(+), 29 deletions(-) diff --git a/scheme/cxr.sld b/scheme/cxr.sld index 54becfb6..78b42b8e 100644 --- a/scheme/cxr.sld +++ b/scheme/cxr.sld @@ -37,35 +37,35 @@ cdddar cddddr caaaaar) - (begin - (define (caar lis) (car(car(lis)))) - (define (cadr lis) (car(cdr(lis)))) - (define (cdar lis) (cdr(car(lis)))) - (define (cddr lis) (cdr(cdr(lis)))) - (define (caaar lis) (car(car(car(lis))))) - (define (caadr lis) (car(car(cdr(lis))))) - (define (cadar lis) (car(cdr(car(lis))))) - (define (caddr lis) (car(cdr(cdr(lis))))) - (define (cdaar lis) (cdr(car(car(lis))))) - (define (cdadr lis) (cdr(car(cdr(lis))))) - (define (cddar lis) (cdr(cdr(car(lis))))) - (define (cdddr lis) (cdr(cdr(cdr(lis))))) - (define (caaaar lis) (car(car(car(car(lis)))))) - (define (caaadr lis) (car(car(car(cdr(lis)))))) - (define (caadar lis) (car(car(cdr(car(lis)))))) - (define (caaddr lis) (car(car(cdr(cdr(lis)))))) - (define (cadaar lis) (car(cdr(car(car(lis)))))) - (define (cadadr lis) (car(cdr(car(cdr(lis)))))) - (define (caddar lis) (car(cdr(cdr(car(lis)))))) - (define (cadddr lis) (car(cdr(cdr(cdr(lis)))))) - (define (cdaaar lis) (cdr(car(car(car(lis)))))) - (define (cdaadr lis) (cdr(car(car(cdr(lis)))))) - (define (cdadar lis) (cdr(car(cdr(car(lis)))))) - (define (cdaddr lis) (cdr(car(cdr(cdr(lis)))))) - (define (cddaar lis) (cdr(cdr(car(car(lis)))))) - (define (cddadr lis) (cdr(cdr(car(cdr(lis)))))) - (define (cdddar lis) (cdr(cdr(cdr(car(lis)))))) - (define (cddddr lis) (cdr(cdr(cdr(cdr(lis)))))) + (begin + (define (caar lis) (car(car lis))) + (define (cadr lis) (car(cdr lis))) + (define (cdar lis) (cdr(car lis))) + (define (cddr lis) (cdr(cdr lis))) + (define (caaar lis) (car(car(car lis)))) + (define (caadr lis) (car(car(cdr lis)))) + (define (cadar lis) (car(cdr(car lis)))) + (define (caddr lis) (car(cdr(cdr lis)))) + (define (cdaar lis) (cdr(car(car lis)))) + (define (cdadr lis) (cdr(car(cdr lis)))) + (define (cddar lis) (cdr(cdr(car lis)))) + (define (cdddr lis) (cdr(cdr(cdr lis)))) + (define (caaaar lis) (car(car(car(car lis))))) + (define (caaadr lis) (car(car(car(cdr lis))))) + (define (caadar lis) (car(car(cdr(car lis))))) + (define (caaddr lis) (car(car(cdr(cdr lis))))) + (define (cadaar lis) (car(cdr(car(car lis))))) + (define (cadadr lis) (car(cdr(car(cdr lis))))) + (define (caddar lis) (car(cdr(cdr(car lis))))) + (define (cadddr lis) (car(cdr(cdr(cdr lis))))) + (define (cdaaar lis) (cdr(car(car(car lis))))) + (define (cdaadr lis) (cdr(car(car(cdr lis))))) + (define (cdadar lis) (cdr(car(cdr(car lis))))) + (define (cdaddr lis) (cdr(car(cdr(cdr lis))))) + (define (cddaar lis) (cdr(cdr(car(car lis))))) + (define (cddadr lis) (cdr(cdr(car(cdr lis))))) + (define (cdddar lis) (cdr(cdr(cdr(car lis))))) + (define (cddddr lis) (cdr(cdr(cdr(cdr lis))))) ;; Non-standard, this is just a placeholder (define (caaaaar lis) (car (car (car (car (car lis))))))))