Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix (scheme cxr) definitions

Browse source
This commit is contained in:
extrasharp 2019-12-01 20:53:21 -06:00
parent c656f4b3ef
commit 71f0000d86
1 changed files with 29 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

56
scheme/cxr.sld
View file

@ -38,34 +38,34 @@
cddddr cddddr
caaaaar) caaaaar)
(begin (begin
(define (caar lis) (car(car(lis)))) (define (caar lis) (car(car lis)))
(define (cadr lis) (car(cdr(lis)))) (define (cadr lis) (car(cdr lis)))
(define (cdar lis) (cdr(car(lis)))) (define (cdar lis) (cdr(car lis)))
(define (cddr lis) (cdr(cdr(lis)))) (define (cddr lis) (cdr(cdr lis)))
(define (caaar lis) (car(car(car(lis))))) (define (caaar lis) (car(car(car lis))))
(define (caadr lis) (car(car(cdr(lis))))) (define (caadr lis) (car(car(cdr lis))))
(define (cadar lis) (car(cdr(car(lis))))) (define (cadar lis) (car(cdr(car lis))))
(define (caddr lis) (car(cdr(cdr(lis))))) (define (caddr lis) (car(cdr(cdr lis))))
(define (cdaar lis) (cdr(car(car(lis))))) (define (cdaar lis) (cdr(car(car lis))))
(define (cdadr lis) (cdr(car(cdr(lis))))) (define (cdadr lis) (cdr(car(cdr lis))))
(define (cddar lis) (cdr(cdr(car(lis))))) (define (cddar lis) (cdr(cdr(car lis))))
(define (cdddr lis) (cdr(cdr(cdr(lis))))) (define (cdddr lis) (cdr(cdr(cdr lis))))
(define (caaaar lis) (car(car(car(car(lis)))))) (define (caaaar lis) (car(car(car(car lis)))))
(define (caaadr lis) (car(car(car(cdr(lis)))))) (define (caaadr lis) (car(car(car(cdr lis)))))
(define (caadar lis) (car(car(cdr(car(lis)))))) (define (caadar lis) (car(car(cdr(car lis)))))
(define (caaddr lis) (car(car(cdr(cdr(lis)))))) (define (caaddr lis) (car(car(cdr(cdr lis)))))
(define (cadaar lis) (car(cdr(car(car(lis)))))) (define (cadaar lis) (car(cdr(car(car lis)))))
(define (cadadr lis) (car(cdr(car(cdr(lis)))))) (define (cadadr lis) (car(cdr(car(cdr lis)))))
(define (caddar lis) (car(cdr(cdr(car(lis)))))) (define (caddar lis) (car(cdr(cdr(car lis)))))
(define (cadddr lis) (car(cdr(cdr(cdr(lis)))))) (define (cadddr lis) (car(cdr(cdr(cdr lis)))))
(define (cdaaar lis) (cdr(car(car(car(lis)))))) (define (cdaaar lis) (cdr(car(car(car lis)))))
(define (cdaadr lis) (cdr(car(car(cdr(lis)))))) (define (cdaadr lis) (cdr(car(car(cdr lis)))))
(define (cdadar lis) (cdr(car(cdr(car(lis)))))) (define (cdadar lis) (cdr(car(cdr(car lis)))))
(define (cdaddr lis) (cdr(car(cdr(cdr(lis)))))) (define (cdaddr lis) (cdr(car(cdr(cdr lis)))))
(define (cddaar lis) (cdr(cdr(car(car(lis)))))) (define (cddaar lis) (cdr(cdr(car(car lis)))))
(define (cddadr lis) (cdr(cdr(car(cdr(lis)))))) (define (cddadr lis) (cdr(cdr(car(cdr lis)))))
(define (cdddar lis) (cdr(cdr(cdr(car(lis)))))) (define (cdddar lis) (cdr(cdr(cdr(car lis)))))
(define (cddddr lis) (cdr(cdr(cdr(cdr(lis)))))) (define (cddddr lis) (cdr(cdr(cdr(cdr lis)))))
;; Non-standard, this is just a placeholder ;; Non-standard, this is just a placeholder
(define (caaaaar lis) (define (caaaaar lis)
(car (car (car (car (car lis)))))))) (car (car (car (car (car lis))))))))